diff options
Diffstat (limited to 'tests/examplefiles/test.p6')
-rw-r--r-- | tests/examplefiles/test.p6 | 252 |
1 files changed, 0 insertions, 252 deletions
diff --git a/tests/examplefiles/test.p6 b/tests/examplefiles/test.p6 deleted file mode 100644 index 3d12b56c..00000000 --- a/tests/examplefiles/test.p6 +++ /dev/null @@ -1,252 +0,0 @@ -#!/usr/bin/env perl6 - -use v6; - -my $string = 'I look like a # comment!'; - -if $string eq 'foo' { - say 'hello'; -} - -regex http-verb { - 'GET' - | 'POST' - | 'PUT' - | 'DELETE' - | 'TRACE' - | 'OPTIONS' - | 'HEAD' -} - -# a sample comment - -say 'Hello from Perl 6!' - - -#`{ -multi-line comment! -} - -say 'here'; - -#`( -multi-line comment! -) - -say 'here'; - -#`{{{ -I'm a special comment! -}}} - -say 'there'; - -#`{{ -I'm { even } specialer! -}} - -say 'there'; - -#`{{ -does {{nesting}} work? -}} - -#`«< -trying mixed delimiters -» - -my $string = qq<Hooray, arbitrary delimiter!>; -my $string = qq«Hooray, arbitrary delimiter!»; -my $string = q <now with whitespace!>; -my $string = qq<<more strings>>; - -my %hash := Hash.new; - -=begin pod - -Here's some POD! Wooo - -=end pod - -=for Testing - This is POD (see? role isn't highlighted) - -say('this is not!'); - -=table - Of role things - -say('not in your table'); -#= A single line declarator "block" (with a keyword like role) -#| Another single line declarator "block" (with a keyword like role) -#={ - A declarator block (with a keyword like role) - } -#|{ - Another declarator block (with a keyword like role) - } -#= { A single line declarator "block" with a brace (with a keyword like role) -#=« - More declarator blocks! (with a keyword like role) - » -#|« - More declarator blocks! (with a keyword like role) - » - -say 'Moar code!'; - -my $don't = 16; - -sub don't($x) { - !$x -} - -say don't 'foo'; - -my %hash = ( - :foo(1), -); - -say %hash<foo>; -say %hash<<foo>>; -say %hash«foo»; - -say %*hash<foo>; -say %*hash<<foo>>; -say %*hash«foo»; - -say $<todo>; -say $<todo>; - -for (@A Z @B) -> $a, $b { - say $a + $b; -} - -Q:PIR { - .loadlib "somelib" -} - -my $longstring = q/ - lots - of - text -/; - -my $heredoc = q:to/END_SQL/; -SELECT * FROM Users -WHERE first_name = 'Rob' -END_SQL -my $hello; - -# Fun with regexen - -if 'food' ~~ /foo/ { - say 'match!' -} - -my $re = /foo/; -my $re2 = m/ foo /; -my $re3 = m:i/ FOO /; - -call-a-sub(/ foo /); -call-a-sub(/ foo \/ bar /); - -my $re4 = rx/something | something-else/; -my $result = ms/regexy stuff/; -my $sub0 = s/regexy stuff/more stuff/; -my $sub = ss/regexy stuff/more stuff/; -my $trans = tr/regexy stuff/more stuff/; - -my @values = <a b c d>; -call-sub(<a b c d>); -call-sub <a b c d>; - -my $result = $a < $b; - -for <a b c d> -> $letter { - say $letter; -} - -sub test-sub { - say @_; - say $!; - say $/; - say $0; - say $1; - say @*ARGS; - say $*ARGFILES; - say &?BLOCK; - say ::?CLASS; - say $?CLASS; - say @=COMMENT; - say %?CONFIG; - say $*CWD; - say $=data; - say %?DEEPMAGIC; - say $?DISTRO; - say $*DISTRO; - say $*EGID; - say %*ENV; - say $*ERR; - say $*EUID; - say $*EXECUTABLE_NAME; - say $?FILE; - say $?GRAMMAR; - say $*GID; - say $*IN; - say @*INC; - say %?LANG; - say $*LANG; - say $?LINE; - say %*META-ARGS; - say $?MODULE; - say %*OPTS; - say %*OPT; - say $?KERNEL; - say $*KERNEL; - say $*OUT; - say $?PACKAGE; - say $?PERL; - say $*PERL; - say $*PID; - say %=pod; - say $*PROGRAM_NAME; - say %*PROTOCOLS; - say ::?ROLE; - say $?ROLE; - say &?ROUTINE; - say $?SCOPE; - say $*TZ; - say $*UID; - say $?USAGE; - say $?VM; - say $?XVM; -} - -say <a b c>; - -my $perl5_re = m:P5/ fo{2} /; -my $re5 = rx«something | something-else»; - -my $M := %*COMPILING<%?OPTIONS><M>; - -say $M; - -sub regex-name { ... } -my $pair = role-name => 'foo'; -$pair = rolesque => 'foo'; - -my sub something(Str:D $value) { ... } - -my $s = q«< -some -string -stuff -»; - -my $regex = m«< some chars »; -# after - -say $/<foo><bar>; - -roleq; |