Author: bernhard
Date: Wed Jan 31 13:38:36 2007
New Revision: 16858
Modified:
trunk/languages/PIR/t/assign.t
trunk/languages/PIR/t/whitespace.t
Log:
Duplicated content in languages/PIR/t
Modified: trunk/languages/PIR/t/assign.t
==============================================================================
--- trunk/languages/PIR/t/assign.t (original)
+++ trunk/languages/PIR/t/assign.t Wed Jan 31 13:38:36 2007
@@ -85,48 +85,3 @@
"parse" => PMC 'PIRGrammar' { ... }
Parse successful!
OUT
-#!perl
-
-use strict;
-use warnings;
-use lib qw(t . lib ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 3;
-use Test::More;
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'simple assignments' );
-.sub main
- a = 1
- b = 1.1
- c = "hello"
- d = e
-.end
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'get keyed assignments' );
-.sub main
- e = x[1]
- f = x[1.1]
- g = x["hello"]
- h = x[e]
-.end
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'set keyed assignments' );
-.sub main
- x[1] = 1
- x[1.1] = 2.222
- x["hello"] = "hello"
- x[e] = f
-.end
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
Modified: trunk/languages/PIR/t/whitespace.t
==============================================================================
--- trunk/languages/PIR/t/whitespace.t (original)
+++ trunk/languages/PIR/t/whitespace.t Wed Jan 31 13:38:36 2007
@@ -522,527 +522,3 @@
Parse successful!
OUT
-#!perl
-
-use strict;
-use warnings;
-use lib qw(t . lib ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 10;
-use Test::More;
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'comments before code' );
-#
-# pre-code comment
-#
-.sub main
-.end
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'comments after code' );
-.sub main
-.end
-#
-# comments after code
-#
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'comments in code' );
-.sub main
-#
-# in-code comment
-#
-.end
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'comments after code' );
-.sub main
-
- x = 1 # this is an assignment!
- # this is comment # this is even more comment
-
-.end
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'pre-code whitespace' );
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-.sub main
-.end
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'in-code whitespace' );
-.sub main
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-.end
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'after-code whitespace' );
-.sub main
-.end
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'pre-code pod comments' );
-=pod
-
-hi there
-
-documentation rocks!
-
-
-
-
-
-
-
-
-=cut
-
-
-
-.sub main
-.end
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'in-code pod comments' );
-.sub main
-
-=pod
-
-hello!!
-
-Parrot rocks too!
-
-=cut
-.end
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
-
-language_output_is( 'PIR_PGE', <<'CODE', <<'OUT', 'after-code pod comments' );
-.sub main
-.end
-
-=pod
-
-Don't forget to hit enter after typing last OUT marker in the test file!
-
-=cut
-
-CODE
-"parse" => PMC 'PIRGrammar' { ... }
-Parse successful!
-OUT
-
