cvsuser 04/08/22 02:15:54
Modified: classes floatvalarray.pmc intlist.pmc multiarray.pmc
parrotlibrary.pmc pmc2c2.pl
t/pmc array.t bigint.t boolean.t complex.t coroutine.t
env.t fixedbooleanarray.t fixedfloatarray.t
fixedintegerarray.t fixedpmcarray.t
fixedstringarray.t float.t floatvalarray.t
intlist.t managedstruct.t multiarray.t nci.t
orderedhash.t perlarray.t perlhash.t perlint.t
perlnum.t perlstring.t ref.t
resizablebooleanarray.t resizablefloatarray.t
resizableintegerarray.t resizablepmcarray.t
resizablestringarray.t sarray.t string.t timer.t
undef.t
Log:
[perl #31270] [PATCH] add test for op 'does'
I have been adding tests for the op 'does' in most of the PMC test files.
Assuming that the PMCs FloatvalArray, IntList, and MultiArray are doing the
'array' interface, I have added the declaration 'does array' for them.
Courtesy of Bernhard Schmalhofer <[EMAIL PROTECTED]>
Revision Changes Path
1.4 +2 -2 parrot/classes/floatvalarray.pmc
Index: floatvalarray.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/floatvalarray.pmc,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- floatvalarray.pmc 11 Aug 2004 18:19:18 -0000 1.3
+++ floatvalarray.pmc 22 Aug 2004 09:15:51 -0000 1.4
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: floatvalarray.pmc,v 1.3 2004/08/11 18:19:18 scog Exp $
+$Id: floatvalarray.pmc,v 1.4 2004/08/22 09:15:51 leo Exp $
=head1 NAME
@@ -21,7 +21,7 @@
#include "parrot/parrot.h"
-pmclass FloatvalArray {
+pmclass FloatvalArray does array {
/*
1.30 +2 -2 parrot/classes/intlist.pmc
Index: intlist.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/intlist.pmc,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -w -r1.29 -r1.30
--- intlist.pmc 9 Jul 2004 15:24:10 -0000 1.29
+++ intlist.pmc 22 Aug 2004 09:15:51 -0000 1.30
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: intlist.pmc,v 1.29 2004/07/09 15:24:10 leo Exp $
+$Id: intlist.pmc,v 1.30 2004/08/22 09:15:51 leo Exp $
=head1 NAME
@@ -22,7 +22,7 @@
#define THROW_UNSUPPORTED internal_exception(INTERP_ERROR, "Operation not
supported\n")
-pmclass IntList {
+pmclass IntList does array {
/*
1.19 +2 -2 parrot/classes/multiarray.pmc
Index: multiarray.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/multiarray.pmc,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -w -r1.18 -r1.19
--- multiarray.pmc 2 Jul 2004 09:30:00 -0000 1.18
+++ multiarray.pmc 22 Aug 2004 09:15:51 -0000 1.19
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: multiarray.pmc,v 1.18 2004/07/02 09:30:00 leo Exp $
+$Id: multiarray.pmc,v 1.19 2004/08/22 09:15:51 leo Exp $
=head1 NAME
@@ -63,7 +63,7 @@
return l;
}
-pmclass MultiArray extends Array need_ext {
+pmclass MultiArray extends Array need_ext does array {
/*
1.9 +3 -3 parrot/classes/parrotlibrary.pmc
Index: parrotlibrary.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/parrotlibrary.pmc,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- parrotlibrary.pmc 22 Feb 2004 17:48:41 -0000 1.8
+++ parrotlibrary.pmc 22 Aug 2004 09:15:51 -0000 1.9
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: parrotlibrary.pmc,v 1.8 2004/02/22 17:48:41 mikescott Exp $
+$Id: parrotlibrary.pmc,v 1.9 2004/08/22 09:15:51 leo Exp $
=head1 NAME
@@ -8,7 +8,7 @@
=head1 DESCRIPTION
-Class for holding info about dynamic libraries.
+Class for holding info about a dynamic library.
PMC data
PMC_struct_val(SELF) oplib init function
@@ -19,7 +19,7 @@
_filename full path/file of lib
_ro true after init
-All ParrotLibrary PMCs are in interperter->iglobals
+All ParrotLibrary PMCs are in interpreter->iglobals.
When a dynamic library (pmc or ops) is loaded, the load function returns
a ParrotLibrary PMC.
1.16 +4 -1 parrot/classes/pmc2c2.pl
Index: pmc2c2.pl
===================================================================
RCS file: /cvs/public/parrot/classes/pmc2c2.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -w -r1.15 -r1.16
--- pmc2c2.pl 22 Aug 2004 09:00:05 -0000 1.15
+++ pmc2c2.pl 22 Aug 2004 09:15:51 -0000 1.16
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: pmc2c2.pl,v 1.15 2004/08/22 09:00:05 leo Exp $
+# $Id: pmc2c2.pl,v 1.16 2004/08/22 09:15:51 leo Exp $
=head1 NAME
@@ -159,7 +159,10 @@
The default is "scalar". Other currently used interfaces are:
array
+ event
hash
+ library
+ ref
=back
1.19 +26 -2 parrot/t/pmc/array.t
Index: array.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/array.t,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -w -r1.18 -r1.19
--- array.t 8 Mar 2004 00:20:09 -0000 1.18
+++ array.t 22 Aug 2004 09:15:52 -0000 1.19
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: array.t,v 1.18 2004/03/08 00:20:09 chromatic Exp $
+# $Id: array.t,v 1.19 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 12;
+use Parrot::Test tests => 13;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -436,4 +436,28 @@
CODE
21030
OUT
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new Array
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.8 +22 -2 parrot/t/pmc/bigint.t
Index: bigint.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/bigint.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -w -r1.7 -r1.8
--- bigint.t 9 Aug 2004 20:40:43 -0000 1.7
+++ bigint.t 22 Aug 2004 09:15:52 -0000 1.8
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: bigint.t,v 1.7 2004/08/09 20:40:43 scog Exp $
+# $Id: bigint.t,v 1.8 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -21,7 +21,7 @@
use Parrot::Config;
if ($PConfig{gmp}) {
- plan tests => 12;
+ plan tests => 13;
}
else {
plan skip_all => "No BigInt Lib configured";
@@ -304,3 +304,23 @@
-1230000000000
1230000000000
OUT
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new BigInt
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+1
+0
+OUTPUT
+
1.6 +20 -4 parrot/t/pmc/boolean.t
Index: boolean.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/boolean.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -r1.5 -r1.6
--- boolean.t 8 Mar 2004 00:20:09 -0000 1.5
+++ boolean.t 22 Aug 2004 09:15:52 -0000 1.6
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: boolean.t,v 1.5 2004/03/08 00:20:09 chromatic Exp $
+# $Id: boolean.t,v 1.6 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 7;
+use Parrot::Test tests => 8;
use Test::More;
output_is(<<'CODE', <<'OUTPUT', "Initialization, and integer tests");
@@ -262,6 +262,22 @@
ok 4
OUTPUT
-1;
-
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new Boolean
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+1
+0
+OUTPUT
1.4 +22 -2 parrot/t/pmc/complex.t
Index: complex.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/complex.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- complex.t 11 Jul 2004 17:13:53 -0000 1.3
+++ complex.t 22 Aug 2004 09:15:52 -0000 1.4
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: complex.t,v 1.3 2004/07/11 17:13:53 nicholas Exp $
+# $Id: complex.t,v 1.4 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 11;
+use Parrot::Test tests => 12;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -529,3 +529,23 @@
CODE
5
OUTPUT
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new Complex
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+1
+0
+OUTPUT
+
1.9 +22 -2 parrot/t/pmc/coroutine.t
Index: coroutine.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/coroutine.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- coroutine.t 6 Jul 2004 13:00:52 -0000 1.8
+++ coroutine.t 22 Aug 2004 09:15:52 -0000 1.9
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: coroutine.t,v 1.8 2004/07/06 13:00:52 leo Exp $
+# $Id: coroutine.t,v 1.9 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 12;
+use Parrot::Test tests => 13;
use Test::More;
output_is(<<'CODE', <<'OUTPUT', "Coroutine 1");
@@ -612,3 +612,23 @@
if x <= 4 goto iloop
.end
CODE
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new Coroutine
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+1
+0
+OUTPUT
+
1.9 +22 -2 parrot/t/pmc/env.t
Index: env.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/env.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- env.t 26 Feb 2004 08:33:28 -0000 1.8
+++ env.t 22 Aug 2004 09:15:52 -0000 1.9
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: env.t,v 1.8 2004/02/26 08:33:28 leo Exp $
+# $Id: env.t,v 1.9 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 6;
+use Parrot::Test tests => 7;
use Test::More;
use Parrot::Config;
@@ -112,3 +112,23 @@
ok 2
OUT
}
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new Env
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+1
+0
+OUTPUT
+
1.2 +25 -2 parrot/t/pmc/fixedbooleanarray.t
Index: fixedbooleanarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/fixedbooleanarray.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- fixedbooleanarray.t 12 Jun 2004 15:54:03 -0000 1.1
+++ fixedbooleanarray.t 22 Aug 2004 09:15:52 -0000 1.2
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: fixedbooleanarray.t,v 1.1 2004/06/12 15:54:03 dan Exp $
+# $Id: fixedbooleanarray.t,v 1.2 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 8;
+use Parrot::Test tests => 9;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -263,4 +263,27 @@
ok 4
OUTPUT
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new FixedBooleanArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.4 +25 -2 parrot/t/pmc/fixedfloatarray.t
Index: fixedfloatarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/fixedfloatarray.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- fixedfloatarray.t 9 Aug 2004 20:45:31 -0000 1.3
+++ fixedfloatarray.t 22 Aug 2004 09:15:52 -0000 1.4
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: fixedfloatarray.t,v 1.3 2004/08/09 20:45:31 scog Exp $
+# $Id: fixedfloatarray.t,v 1.4 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 10;
+use Parrot::Test tests => 11;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -310,5 +310,28 @@
ok 2
OUTPUT
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new FixedFloatArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.2 +25 -2 parrot/t/pmc/fixedintegerarray.t
Index: fixedintegerarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/fixedintegerarray.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- fixedintegerarray.t 12 Jun 2004 15:54:03 -0000 1.1
+++ fixedintegerarray.t 22 Aug 2004 09:15:52 -0000 1.2
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: fixedintegerarray.t,v 1.1 2004/06/12 15:54:03 dan Exp $
+# $Id: fixedintegerarray.t,v 1.2 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 8;
+use Parrot::Test tests => 9;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -263,4 +263,27 @@
ok 4
OUTPUT
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new FixedIntegerArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.4 +25 -2 parrot/t/pmc/fixedpmcarray.t
Index: fixedpmcarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/fixedpmcarray.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- fixedpmcarray.t 13 Jul 2004 06:15:37 -0000 1.3
+++ fixedpmcarray.t 22 Aug 2004 09:15:52 -0000 1.4
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: fixedpmcarray.t,v 1.3 2004/07/13 06:15:37 leo Exp $
+# $Id: fixedpmcarray.t,v 1.4 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 9;
+use Parrot::Test tests => 10;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -333,4 +333,27 @@
1 2 5 9 10 x
compares: [1-9]\d*/, "sort");
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new FixedPMCArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.2 +25 -2 parrot/t/pmc/fixedstringarray.t
Index: fixedstringarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/fixedstringarray.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- fixedstringarray.t 12 Jun 2004 15:54:03 -0000 1.1
+++ fixedstringarray.t 22 Aug 2004 09:15:52 -0000 1.2
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: fixedstringarray.t,v 1.1 2004/06/12 15:54:03 dan Exp $
+# $Id: fixedstringarray.t,v 1.2 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 8;
+use Parrot::Test tests => 9;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -263,4 +263,27 @@
ok 4
OUTPUT
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new FixedStringArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.6 +20 -6 parrot/t/pmc/float.t
Index: float.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/float.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -r1.5 -r1.6
--- float.t 9 Aug 2004 21:16:59 -0000 1.5
+++ float.t 22 Aug 2004 09:15:52 -0000 1.6
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: float.t,v 1.5 2004/08/09 21:16:59 scog Exp $
+# $Id: float.t,v 1.6 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 26;
+use Parrot::Test tests => 27;
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
@@ -773,7 +773,21 @@
ok 8
OUTPUT
-
-
-
-
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new Float
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+1
+0
+OUTPUT
1.3 +26 -2 parrot/t/pmc/floatvalarray.t
Index: floatvalarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/floatvalarray.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- floatvalarray.t 29 Apr 2004 11:23:37 -0000 1.2
+++ floatvalarray.t 22 Aug 2004 09:15:52 -0000 1.3
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: floatvalarray.t,v 1.2 2004/04/29 11:23:37 leo Exp $
+# $Id: floatvalarray.t,v 1.3 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 9;
+use Parrot::Test tests => 10;
use Test::More;
output_is(<<'CODE', <<'OUTPUT', 'creation');
@@ -119,3 +119,27 @@
CODE
Done
OUTPUT
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new FloatvalArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1.13 +26 -2 parrot/t/pmc/intlist.t
Index: intlist.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/intlist.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -w -r1.12 -r1.13
--- intlist.t 26 Jun 2004 12:14:29 -0000 1.12
+++ intlist.t 22 Aug 2004 09:15:52 -0000 1.13
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: intlist.t,v 1.12 2004/06/26 12:14:29 leo Exp $
+# $Id: intlist.t,v 1.13 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 10;
+use Parrot::Test tests => 11;
use Test::More;
output_is(<<'CODE', <<'OUTPUT', "creation");
@@ -535,3 +535,27 @@
100
1
OUTPUT
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new IntList
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1.11 +22 -2 parrot/t/pmc/managedstruct.t
Index: managedstruct.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/managedstruct.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -w -r1.10 -r1.11
--- managedstruct.t 9 Aug 2004 13:23:13 -0000 1.10
+++ managedstruct.t 22 Aug 2004 09:15:52 -0000 1.11
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: managedstruct.t,v 1.10 2004/08/09 13:23:13 leo Exp $
+# $Id: managedstruct.t,v 1.11 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 5;
+use Parrot::Test tests => 6;
use Test::More;
use Parrot::Config;
@@ -239,3 +239,23 @@
16
8
OUTPUT
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new ManagedStruct
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+1
+0
+OUTPUT
+
1.8 +24 -4 parrot/t/pmc/multiarray.t
Index: multiarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/multiarray.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -w -r1.7 -r1.8
--- multiarray.t 8 Mar 2004 00:20:09 -0000 1.7
+++ multiarray.t 22 Aug 2004 09:15:52 -0000 1.8
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: multiarray.t,v 1.7 2004/03/08 00:20:09 chromatic Exp $
+# $Id: multiarray.t,v 1.8 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 3;
+use Parrot::Test tests => 4;
use Test::More;
output_is(<<'CODE', <<'OUTPUT', "multiarray creation");
@@ -193,5 +193,25 @@
ok 3
OUTPUT
-1;
-
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new MultiArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
1.46 +25 -2 parrot/t/pmc/nci.t
Index: nci.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/nci.t,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -w -r1.45 -r1.46
--- nci.t 10 Aug 2004 16:18:44 -0000 1.45
+++ nci.t 22 Aug 2004 09:15:52 -0000 1.46
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: nci.t,v 1.45 2004/08/10 16:18:44 nicholas Exp $
+# $Id: nci.t,v 1.46 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 34;
+use Parrot::Test tests => 35;
use Parrot::Config;
SKIP: {
@@ -1337,4 +1337,27 @@
} # SKIP
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new ParrotLibrary
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "library"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.7 +31 -2 parrot/t/pmc/orderedhash.t
Index: orderedhash.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/orderedhash.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -r1.6 -r1.7
--- orderedhash.t 31 Mar 2004 07:08:12 -0000 1.6
+++ orderedhash.t 22 Aug 2004 09:15:52 -0000 1.7
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: orderedhash.t,v 1.6 2004/03/31 07:08:12 leo Exp $
+# $Id: orderedhash.t,v 1.7 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 18;
+use Parrot::Test tests => 19;
use Test::More;
output_is(<<'CODE', <<OUT, "init");
@@ -504,3 +504,32 @@
P0["b"]: B
P0["b"]: B
OUTPUT
+
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new OrderedHash
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "hash"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+1
+0
+OUTPUT
+
1.36 +25 -2 parrot/t/pmc/perlarray.t
Index: perlarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/perlarray.t,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -w -r1.35 -r1.36
--- perlarray.t 30 Mar 2004 19:58:00 -0000 1.35
+++ perlarray.t 22 Aug 2004 09:15:52 -0000 1.36
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: perlarray.t,v 1.35 2004/03/30 19:58:00 scog Exp $
+# $Id: perlarray.t,v 1.36 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 26;
+use Parrot::Test tests => 27;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -1392,5 +1392,28 @@
/
OUTPUT
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new PerlArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.47 +25 -2 parrot/t/pmc/perlhash.t
Index: perlhash.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/perlhash.t,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -w -r1.46 -r1.47
--- perlhash.t 21 Aug 2004 09:05:49 -0000 1.46
+++ perlhash.t 22 Aug 2004 09:15:52 -0000 1.47
@@ -1,7 +1,7 @@
#! perl
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: perlhash.t,v 1.46 2004/08/21 09:05:49 leo Exp $
+# $Id: perlhash.t,v 1.47 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -19,7 +19,7 @@
=cut
-use Parrot::Test tests => 35;
+use Parrot::Test tests => 36;
use Test::More;
output_is(<<CODE, <<OUTPUT, "Initial PerlHash tests");
@@ -1192,4 +1192,27 @@
three
OUTPUT
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new PerlHash
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "hash"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.18 +22 -2 parrot/t/pmc/perlint.t
Index: perlint.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/perlint.t,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -w -r1.17 -r1.18
--- perlint.t 28 May 2004 08:53:59 -0000 1.17
+++ perlint.t 22 Aug 2004 09:15:52 -0000 1.18
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: perlint.t,v 1.17 2004/05/28 08:53:59 jrieks Exp $
+# $Id: perlint.t,v 1.18 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 28;
+use Parrot::Test tests => 29;
use Parrot::PMC '%pmc_types';
my $perlint = $pmc_types{'PerlInt'};
my $ok = '"ok 1\n"';
@@ -969,3 +969,23 @@
ok 5
ok 6
OUTPUT
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new PerlInt
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+1
+0
+OUTPUT
+
1.9 +22 -2 parrot/t/pmc/perlnum.t
Index: perlnum.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/perlnum.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- perlnum.t 9 Aug 2004 07:43:17 -0000 1.8
+++ perlnum.t 22 Aug 2004 09:15:52 -0000 1.9
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: perlnum.t,v 1.8 2004/08/09 07:43:17 leo Exp $
+# $Id: perlnum.t,v 1.9 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 42;
+use Parrot::Test tests => 43;
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
@@ -808,3 +808,23 @@
CODE
0 is false
OUTPUT
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new PerlNum
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+1
+0
+OUTPUT
+
1.26 +21 -3 parrot/t/pmc/perlstring.t
Index: perlstring.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/perlstring.t,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -w -r1.25 -r1.26
--- perlstring.t 3 Aug 2004 18:24:04 -0000 1.25
+++ perlstring.t 22 Aug 2004 09:15:52 -0000 1.26
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: perlstring.t,v 1.25 2004/08/03 18:24:04 scog Exp $
+# $Id: perlstring.t,v 1.26 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 39;
+use Parrot::Test tests => 40;
use Test::More; # Included for skip().
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -1228,5 +1228,23 @@
87-8-9
OUTPUT
-1;
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new PerlString
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+1
+0
+OUTPUT
1.7 +42 -2 parrot/t/pmc/ref.t
Index: ref.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/ref.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -r1.6 -r1.7
--- ref.t 20 Apr 2004 07:44:50 -0000 1.6
+++ ref.t 22 Aug 2004 09:15:52 -0000 1.7
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: ref.t,v 1.6 2004/04/20 07:44:50 leo Exp $
+# $Id: ref.t,v 1.7 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 7;
+use Parrot::Test tests => 8;
use Test::More qw(skip);
output_is(<<'CODE', <<'OUTPUT', "new ref");
@@ -141,3 +141,43 @@
/ok 1
deref not allowed/
OUTPUT
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new Array
+ .local pmc pmc2
+ pmc2 = new Ref, pmc1
+ .local pmc pmc3
+ pmc3 = new SharedRef, pmc1
+ .local int bool1
+ does bool1, pmc2, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc2, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc2, "no_interface"
+ print bool1
+ print "\n"
+ does bool1, pmc3, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc3, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc3, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+0
+1
+0
+OUTPUT
+
1.3 +25 -2 parrot/t/pmc/resizablebooleanarray.t
Index: resizablebooleanarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/resizablebooleanarray.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- resizablebooleanarray.t 16 Jun 2004 13:25:26 -0000 1.2
+++ resizablebooleanarray.t 22 Aug 2004 09:15:52 -0000 1.3
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: resizablebooleanarray.t,v 1.2 2004/06/16 13:25:26 dan Exp $
+# $Id: resizablebooleanarray.t,v 1.3 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 7;
+use Parrot::Test tests => 8;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -285,4 +285,27 @@
ok 4
OUTPUT
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new ResizableBooleanArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.4 +25 -2 parrot/t/pmc/resizablefloatarray.t
Index: resizablefloatarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/resizablefloatarray.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- resizablefloatarray.t 11 Aug 2004 19:02:05 -0000 1.3
+++ resizablefloatarray.t 22 Aug 2004 09:15:52 -0000 1.4
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: resizablefloatarray.t,v 1.3 2004/08/11 19:02:05 scog Exp $
+# $Id: resizablefloatarray.t,v 1.4 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 15;
+use Parrot::Test tests => 16;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -409,4 +409,27 @@
/ResizableFloatArray: Can't pop from an empty array!/
OUTPUT
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new ResizableFloatArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.3 +25 -2 parrot/t/pmc/resizableintegerarray.t
Index: resizableintegerarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/resizableintegerarray.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- resizableintegerarray.t 16 Jun 2004 13:25:26 -0000 1.2
+++ resizableintegerarray.t 22 Aug 2004 09:15:52 -0000 1.3
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: resizableintegerarray.t,v 1.2 2004/06/16 13:25:26 dan Exp $
+# $Id: resizableintegerarray.t,v 1.3 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 7;
+use Parrot::Test tests => 8;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -269,4 +269,27 @@
ok 4
OUTPUT
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new ResizableIntegerArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.3 +25 -2 parrot/t/pmc/resizablepmcarray.t
Index: resizablepmcarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/resizablepmcarray.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- resizablepmcarray.t 16 Jun 2004 13:25:26 -0000 1.2
+++ resizablepmcarray.t 22 Aug 2004 09:15:52 -0000 1.3
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: resizablepmcarray.t,v 1.2 2004/06/16 13:25:26 dan Exp $
+# $Id: resizablepmcarray.t,v 1.3 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 7;
+use Parrot::Test tests => 8;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -268,4 +268,27 @@
ok 4
OUTPUT
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new ResizablePMCArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.3 +25 -2 parrot/t/pmc/resizablestringarray.t
Index: resizablestringarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/resizablestringarray.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- resizablestringarray.t 16 Jun 2004 13:25:27 -0000 1.2
+++ resizablestringarray.t 22 Aug 2004 09:15:52 -0000 1.3
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: resizablestringarray.t,v 1.2 2004/06/16 13:25:27 dan Exp $
+# $Id: resizablestringarray.t,v 1.3 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 7;
+use Parrot::Test tests => 8;
use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -270,4 +270,27 @@
ok 4
OUTPUT
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new ResizableStringArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1;
1.8 +26 -2 parrot/t/pmc/sarray.t
Index: sarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/sarray.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -w -r1.7 -r1.8
--- sarray.t 8 Mar 2004 00:20:09 -0000 1.7
+++ sarray.t 22 Aug 2004 09:15:52 -0000 1.8
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: sarray.t,v 1.7 2004/03/08 00:20:09 chromatic Exp $
+# $Id: sarray.t,v 1.8 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 14;
+use Parrot::Test tests => 15;
use Test::More;
output_is(<<'CODE', <<'OUTPUT', "Setting sarray size");
@@ -473,3 +473,27 @@
/^ok
morph\(\) in ConstSArray/
OUTPUT
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new SArray
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "array"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
1.2 +21 -3 parrot/t/pmc/string.t
Index: string.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/string.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- string.t 24 Jun 2004 10:50:54 -0000 1.1
+++ string.t 22 Aug 2004 09:15:52 -0000 1.2
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: string.t,v 1.1 2004/06/24 10:50:54 leo Exp $
+# $Id: string.t,v 1.2 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 30;
+use Parrot::Test tests => 31;
use Test::More; # Included for skip().
my $fp_equality_macro = <<'ENDOFMACRO';
@@ -1116,5 +1116,23 @@
str
OUTPUT
-1;
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new String
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+1
+0
+OUTPUT
1.12 +26 -2 parrot/t/pmc/timer.t
Index: timer.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/timer.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -w -r1.11 -r1.12
--- timer.t 8 Mar 2004 00:20:09 -0000 1.11
+++ timer.t 22 Aug 2004 09:15:52 -0000 1.12
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: timer.t,v 1.11 2004/03/08 00:20:09 chromatic Exp $
+# $Id: timer.t,v 1.12 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -17,7 +17,7 @@
=cut
-use Parrot::Test tests => 7;
+use Parrot::Test tests => 8;
use Test::More;
my %platforms = map {$_=>1} qw/
@@ -245,3 +245,27 @@
OUT
}
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new Timer
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "event"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+0
+1
+0
+OUTPUT
+
+
1.2 +22 -2 parrot/t/pmc/undef.t
Index: undef.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/undef.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- undef.t 9 Jul 2004 05:23:35 -0000 1.1
+++ undef.t 22 Aug 2004 09:15:52 -0000 1.2
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
-# $Id: undef.t,v 1.1 2004/07/09 05:23:35 leo Exp $
+# $Id: undef.t,v 1.2 2004/08/22 09:15:52 leo Exp $
=head1 NAME
@@ -16,7 +16,7 @@
=cut
-use Parrot::Test tests => 1;
+use Parrot::Test tests => 2;
use Test::More qw(skip);
output_is(<<'CODE', <<'OUTPUT', "morph to string");
@@ -30,3 +30,23 @@
CODE
foofoo
OUTPUT
+
+output_is(<< 'CODE', << 'OUTPUT', "check wether interface is done");
+##PIR##
+.sub _main
+ .local pmc pmc1
+ pmc1 = new Undef
+ .local int bool1
+ does bool1, pmc1, "scalar"
+ print bool1
+ print "\n"
+ does bool1, pmc1, "no_interface"
+ print bool1
+ print "\n"
+ end
+.end
+CODE
+1
+0
+OUTPUT
+
