cvsuser 04/11/09 01:46:04
Modified: t/pmc freeze.t
Log:
freeze_thaw a class 2 - thaw into same interp
Revision Changes Path
1.14 +22 -2 parrot/t/pmc/freeze.t
Index: freeze.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/freeze.t,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- freeze.t 9 Nov 2004 08:43:11 -0000 1.13
+++ freeze.t 9 Nov 2004 09:46:04 -0000 1.14
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: freeze.t,v 1.13 2004/11/09 08:43:11 leo Exp $
+# $Id: freeze.t,v 1.14 2004/11/09 09:46:04 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 17;
+use Parrot::Test tests => 18;
use Test::More;
END { unlink "temp.fpmc"; };
@@ -482,3 +482,23 @@
Foo
OUTPUT
+output_is(<<'CODE', <<'OUTPUT', "freeze/thaw simple class");
+ newclass P10, "Foo"
+ classname S10, P10
+ print S10
+ print "\n"
+ freeze S11, P10
+
+ thaw P4, S11
+ print "ok\n"
+ classname S12, P4
+ print S12
+ print "\n"
+ end
+CODE
+Foo
+ok
+Foo
+OUTPUT
+
+
