Changeset 32 for t/01basic.t

Timestamp:

02/16/05 18:48:28 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1041

Message:

* Code literals -- "sub", "pointy" and "bare" variants all works
* Lexical subroutine declarations via "my sub"
* Global subroutine and variables work again, via the envGlobal pad
* The "say", "exit", "die" primitives
* Bool.perl now prints correct literals (lwall)
* Blocks under void contexts now evaluates automatically
* The "..." (dotdotdot) literal

Files:

• t/01basic.t (modified) (1 diff)

t/01basic.t

@@ -1 @@
-#!/usr/bin/perl
+use v6;
 
-use FindBin;
-use Config;
-use File::Spec;
+=pod
 
-chdir (File::Spec->catdir($FindBin::Bin, File::Spec->updir));
-my $pugs = File::Spec->catfile(File::Spec->curdir, "pugs$Config{_exe}");
+This is a test file.  Whee!
 
-system($pugs, -e => '"1..2\nok 1 # Welcome to Pugs!\n"');
+=cut
 
-open PUGS, "| $pugs" or die "Cannot pipe out to $pugs: $!";
-print PUGS << '.';
-    sub cool { fine($_) ~ " # We've got " ~ toys };
-    sub fine { "ok " ~ $_ };
-    sub toys { "fun and games!\n" };
-    cool 2
-.
-close PUGS;
+say "1..2";
+say "ok 1 # Welcome to Pugs!";
+
+sub cool { fine($_) ~ " # We've got " ~ toys }
+sub fine { "ok " ~ $_ }
+sub toys { "fun and games!" }
+
+say cool 2 # and that's it, folks!