v6/v6-KindaPerl6/t-bootstrap/01-quote.t

   1
   2 use lib "compiled/perl5-kp6-kp6/lib";
   3 use strict;
   4 use KindaPerl6::Runtime::Perl5::Runtime;
   5 use KindaPerl6::Grammar::Quote;
   6 use Test::More tests => 3;
   7
   8 $_ = ::DISPATCH( $::Scalar, "new" );
   9 my $MATCH;
  10
  11 ::DISPATCH_VAR( $_, 'STORE', ::DISPATCH( $::Str, 'new', '123' ) );
  12 $MATCH = ::DISPATCH( $::KindaPerl6::Grammar, 'quoted_any' );
  13 # ::DISPATCH( $GLOBAL::Code_print, 'APPLY', ::DISPATCH( $MATCH, 'perl', ) );
  14 ok( $MATCH->true, "quoted_any matched" );
  15
  16 ::DISPATCH_VAR( $_, 'STORE', ::DISPATCH( $::Str, 'new', '123"' ) );
  17 $MATCH = ::DISPATCH( $::KindaPerl6::Grammar, 'double_quoted' );
  18 # ::DISPATCH( $GLOBAL::Code_print, 'APPLY', ::DISPATCH( $MATCH, 'perl', ) );
  19 ok( $MATCH->true, "double_quoted matched" );
  20 ok( $MATCH->Str eq '123', "double_quoted Str" );
  21
  22
  23 =begin
  24
  25 =head1 AUTHORS
  26
  27 The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.
  28
  29 =head1 SEE ALSO
  30
  31 The Perl 6 homepage at L<http://dev.perl.org/perl6>.
  32
  33 The Pugs homepage at L<http://pugscode.org/>.
  34
  35 =head1 COPYRIGHT
  36
  37 Copyright 2007 by Flavio Soibelmann Glock and others.
  38
  39 This program is free software; you can redistribute it and/or modify it
  40 under the same terms as Perl itself.
  41
  42 See L<http://www.perl.com/perl/misc/Artistic.html>
  43
  44 =end