use Perl6::Rules;;
use Test::Simple 'no_plan';

$str = q{abc
def
ghi};

ok( $str =~ m/^abc/, "SOS abc" );
ok( $str !~ m/^bc/, "SOL bc" );
ok( $str =~ m/^^abc/, "SOL abc" );
ok( $str !~ m/^^bc/, "SOL bc" );
ok( $str =~ m/abc\n?$$/, "abc newline EOL" );
ok( $str !~ m/abc$$/, "abc EOL" );
ok( $str !~ m/ab$$/, "ab EOL" );
ok( $str !~ m/abc$/, "abc EOS" );
ok( $str !~ m/^def/, "SOS def" );
ok( $str =~ m/^^def/, "SOL def" );
ok( $str =~ m/def\n?$$/, "def newline EOL" );
ok( $str !~ m/def$$/, "def newline EOL" );
ok( $str !~ m/def$/, "def EOS" );
ok( $str !~ m/^ghi/, "SOS ghi" );
ok( $str =~ m/^^ghi/, "SOL ghi" );
ok( $str =~ m/ghi\n?$$/, "ghi newline EOL" );
ok( $str =~ m/ghi$$/, "ghi EOL" );
ok( $str =~ m/ghi$/, "ghi EOS" );
ok( $str =~ m/^abc\n$$^^d.*f\n$$^^ghi$/, "All dot" );