[svn:parrot] r35665 - trunk/t/op

Author: cotto
Date: Sat Jan 17 00:45:56 2009
New Revision: 35665

Modified:
   trunk/t/op/copy.t

Log:
[t] delete some mysteriously duplicated contents


Modified: trunk/t/op/copy.t
==============================================================================
--- trunk/t/op/copy.t	(original)
+++ trunk/t/op/copy.t	Sat Jan 17 00:45:56 2009
@@ -62,70 +62,6 @@
     ##   say '$x = ', $x;
     is( dest, 3.2, 'copy should make independent copies' )
 .end
-#! parrot
-# Copyright (C) 2007, The Perl Foundation.
-# $Id$
-
-=head1 NAME
-
-t/op/copy - Testing the copy opcode
-
-=head1 SYNOPSIS
-
-    % prove t/op/copy.t
-
-=head1 DESCRIPTION
-
-Tests various PMCs with copy.
-
-=cut
-
-.sub 'main' :main
-    .include 'include/test_more.pir'
-
-    plan(3)
-
-    test_basic()
-    test_rt48467()
-.end
-
-.sub 'test_basic'
-    .local pmc dest
-    dest = new 'Integer'
-    dest = 2
-
-    .local pmc src
-    src = new 'Float'
-    src = 1.28
-
-    dest = copy src
-    isa_ok( dest, 'Float', 'copy should change type of PMC' )
-    is( dest, 1.28, '... and its value' )
-.end
-
-.sub 'test_rt48467'
-    .local pmc my_float
-    my_float = subclass 'Float', 'Num'
-
-    ##   my $x = 0;
-    .local pmc dest
-    dest = new 'Integer'
-    dest = 0
-
-    ##   my $y = 3.2;
-    .local pmc src
-    src = new 'Num'
-    src = 3.2
-
-    ##   $x = $y;
-    dest = copy src
-
-    ##   $y++;
-    inc src
-
-    ##   say '$x = ', $x;
-    is( dest, 3.2, 'copy should make independent copies' )
-.end
 
 # Local Variables:
 #   mode: pir