t/op/box.t

   1 #!./parrot
   2 # Copyright (C) 2008-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/op/box.t - the box opcode
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/op/box.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests all box operators.
  16
  17 =cut
  18
  19 .const int TESTS = 26
  20
  21 # must set these up before the hll_map calls later
  22 .sub '__setup' :immediate
  23     $P0 = subclass 'Integer', 'MyInt'
  24     $P0 = subclass 'String',  'MyString'
  25     $P0 = subclass 'Float',   'MyFloat'
  26 .end
  27
  28 .sub 'main' :main
  29     .include 'test_more.pir'
  30
  31     'plan'(TESTS)
  32
  33     'box_int'()
  34     'box_num'()
  35     'box_string'()
  36     'box_null_string'()
  37
  38     .local pmc box_int_hll
  39     box_int_hll = get_root_global [ 'for_test' ], 'box_int'
  40
  41     .local pmc box_num_hll
  42     box_num_hll = get_root_global [ 'for_test' ], 'box_num'
  43
  44     .local pmc box_string_hll
  45     box_string_hll = get_root_global [ 'for_test' ], 'box_string'
  46
  47     box_int_hll()
  48     box_num_hll()
  49     box_string_hll()
  50 .end
  51
  52 .sub 'box_int'
  53
  54     $P0 = box 100
  55     $I0 = $P0
  56     is( $I0, 100, 'value preserved when boxing int' )
  57
  58     isa_ok( $P0, 'Integer', 'int boxed to appropriate base type' )
  59
  60     $I0 = 200
  61     $P0 = box $I0
  62     $I0 = $P0
  63     is( $I0, 200, 'value preserved when boxing int from reg' )
  64     isa_ok( $P0, 'Integer', 'int boxed to appropriate base type from reg' )
  65 .end
  66
  67 .sub 'box_num'
  68     $P0 = box 77.7
  69     $N0 = $P0
  70     is( $N0, 77.7, 'value preserved when boxing num' )
  71
  72     isa_ok( $P0, 'Float', 'num boxed to appropriate base type' )
  73
  74     $N0 = 88.8
  75     $P0 = box $N0
  76     $N0 = $P0
  77     is( $N0, 88.8, 'value preserved when boxing num from reg' )
  78
  79     isa_ok( $P0, 'Float', 'num boxed to appropriate base type from reg' )
  80 .end
  81
  82 .sub 'box_string'
  83     $P0 = box 'Hi, there'
  84     $S0 = $P0
  85     is( $S0, 'Hi, there', 'value preserved when boxing string' )
  86
  87     isa_ok( $P0, 'String', 'string boxed to appropriate base type' )
  88
  89     $S0 = 'Hello, there'
  90     $P0 = box $S0
  91     $S0 = $P0
  92     is( $S0, 'Hello, there', 'value preserved when boxing string from reg' )
  93
  94     isa_ok( $P0, 'String', 'string boxed to appropriate base type from reg' )
  95 .end
  96
  97 .sub 'box_null_string'
  98     null $S0
  99     $P0 = box $S0
 100     $S1 = $P0
 101     is( $S1, '', 'NULL STRING boxed to empty String PMC' )
 102
 103     $P1 = clone $P0
 104     $S1 = $P0
 105     is( $S1, '', '... and survives clone of boxed PMC (TT #964)' )
 106
 107 .end
 108
 109 .HLL 'for_test'
 110
 111 .sub anon :anon :init
 112   .local pmc interp
 113   .local pmc cint, myint
 114   .local pmc cstr, mystr
 115   .local pmc cnum, mynum
 116   interp = getinterp
 117
 118   cint  = get_class 'Integer'
 119   myint = get_class 'MyInt'
 120   interp.'hll_map'(cint,myint)
 121
 122   cstr  = get_class 'String'
 123   mystr = get_class 'MyString'
 124   interp.'hll_map'(cstr,mystr)
 125
 126   cnum  = get_class 'Float'
 127   mynum = get_class 'MyFloat'
 128   interp.'hll_map'(cnum,mynum)
 129 .end
 130
 131 .sub 'box_int'
 132     .include 'test_more.pir'
 133
 134     $P0 = box -100
 135     $I0 = $P0
 136     is( $I0, -100, 'value preserved when boxing int in HLL' )
 137
 138     isa_ok( $P0, 'MyInt', 'int boxed to appropriate base type for HLL' )
 139
 140     $I0 = -999
 141     $P0 = box $I0
 142     $I0 = $P0
 143     is( $I0, -999, 'value preserved when boxing int in HLL from reg' )
 144
 145     isa_ok( $P0, 'MyInt', 'int boxed to appropriate type for HLL from reg')
 146 .end
 147
 148 .sub 'box_num'
 149     $P0 = box -77.7
 150     $N0 = $P0
 151     is( $N0, -77.7, 'value preserved when boxing num in HLL' )
 152
 153     isa_ok( $P0, 'MyFloat', 'num boxed to appropriate base type for HLL' )
 154
 155     $N0 = -222222.222222
 156     $P0 = box $N0
 157     $N0 = $P0
 158     is( $N0, -222222.222222, 'value preserved when boxing num in HLL from reg' )
 159
 160     isa_ok( $P0, 'MyFloat', 'num boxed to appropriate type for HLL from reg' )
 161 .end
 162
 163 .sub 'box_string'
 164     $P0 = box 'Bye, bye!'
 165     $S0 = $P0
 166     is( $S0, 'Bye, bye!', 'value preserved when boxing string in HLL' )
 167
 168     isa_ok( $P0, 'MyString', 'string boxed to appropriate base type for HLL' )
 169
 170     $S0 = 'Hello, goodbye!'
 171     $P0 = box $S0
 172     $S0 = $P0
 173     is( $S0, 'Hello, goodbye!', 'value preserved when boxing string in HLL from reg' )
 174
 175     isa_ok($P0, 'MyString', 'string boxed to appropriate type for HLL from reg')
 176 .end
 177
 178 # Local Variables:
 179 #   mode: pir
 180 #   fill-column: 100
 181 # End:
 182 # vim: expandtab shiftwidth=4 ft=pir: