cvsuser 04/05/22 22:26:46
Modified: languages/perl6/t/builtins array.t
languages/perl6/t/compiler call.t
Log:
Add some more tests that really ought to pass. They won't, with the
currently checked-in code, but it looks like nothing really works with
the checked-in code, so I figure I might as well commit these anyway.
(I have uncommitted code that makes these work, but I'm still merging
and carving off simpler pieces to commit right now.)
Revision Changes Path
1.2 +0 -3 parrot/languages/perl6/t/builtins/array.t
Index: array.t
===================================================================
RCS file: /cvs/public/parrot/languages/perl6/t/builtins/array.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- array.t 4 Sep 2002 22:26:11 -0000 1.1
+++ array.t 23 May 2004 05:26:43 -0000 1.2
@@ -4,8 +4,6 @@
use Test::More qw(skip);
##############################
-SKIP: {
-skip 'no grep yet', 1;
output_is(<<'CODE', <<'OUT', "grep");
sub main() {
@array = ("perl6", "is", "fun");
@@ -21,7 +19,6 @@
is
perl6isfun
OUT
-}
##############################
output_is(<<'CODE', <<'OUT', "reverse");
1.3 +33 -1 parrot/languages/perl6/t/compiler/call.t
Index: call.t
===================================================================
RCS file: /cvs/public/parrot/languages/perl6/t/compiler/call.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- call.t 19 Dec 2003 09:01:36 -0000 1.2
+++ call.t 23 May 2004 05:26:46 -0000 1.3
@@ -1,9 +1,41 @@
#!perl
use strict;
-use P6C::TestCompiler tests => 17;
+use P6C::TestCompiler tests => 21;
use Test::More;
##############################
+output_is(<<'CODE', <<'OUT', "call - no args, proto def, proto call");
+sub f () { print "hello\n" }
+f();
+CODE
+hello
+OUT
+
+##############################
+output_is(<<'CODE', <<'OUT', "call - no args, unproto def, proto call");
+sub f { print "hello\n" }
+f();
+CODE
+hello
+OUT
+
+##############################
+output_is(<<'CODE', <<'OUT', "call - no args, proto def, unproto call");
+f(); # Should be *f()
+sub f () { print "hello\n" }
+CODE
+hello
+OUT
+
+##############################
+output_is(<<'CODE', <<'OUT', "call - no args, unproto def, unproto call");
+f();
+sub f { print "hello\n" }
+CODE
+hello
+OUT
+
+##############################
output_is(<<'CODE', <<'OUT', "subroutine call");
sub _fact($tot, $max, $n) {
if $n > $max {
