t/op/copy.t

   1 #!./parrot
   2 # Copyright (C) 2007-2008, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/op/copy - Testing the copy opcode
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/op/copy.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests various PMCs with copy.
  16
  17 =cut
  18
  19 .sub 'main' :main
  20     .include 'test_more.pir'
  21
  22     plan(4)
  23
  24     test_basic()
  25     test_rt48467()
  26     test_tonull()
  27 .end
  28
  29 .sub 'test_basic'
  30     .local pmc dest
  31     dest = new 'Integer'
  32     dest = 2
  33
  34     .local pmc src
  35     src = new 'Float'
  36     src = 1.28
  37
  38     dest = copy src
  39     isa_ok( dest, 'Float', 'copy should change type of PMC' )
  40     is( dest, 1.28, '... and its value' )
  41 .end
  42
  43 .sub 'test_rt48467'
  44     .local pmc my_float
  45     my_float = subclass 'Float', 'Num'
  46
  47     ##   my $x = 0;
  48     .local pmc dest
  49     dest = new 'Integer'
  50     dest = 0
  51
  52     ##   my $y = 3.2;
  53     .local pmc src
  54     src = new 'Num'
  55     src = 3.2
  56
  57     ##   $x = $y;
  58     dest = copy src
  59
  60     ##   $y++;
  61     inc src
  62
  63     ##   say '$x = ', $x;
  64     is( dest, 3.2, 'copy should make independent copies' )
  65 .end
  66
  67 .sub 'test_tonull'
  68     null $P1
  69     $P2 = new 'Undef'
  70     .local string msg
  71     msg = 'failed'
  72     push_eh catch
  73     copy $P1, $P2
  74     goto check
  75 catch:
  76     .get_results($P3)
  77     msg = $P3 ['message']
  78 check:
  79     pop_eh
  80     is( msg, 'Null PMC in copy', 'copy to null throws' )
  81 .end
  82
  83 # Local Variables:
  84 #   mode: pir
  85 #   fill-column: 100
  86 # End:
  87 # vim: expandtab shiftwidth=4 ft=pir: