#!/usr/bin/perl

use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 1;
use Test::More;

language_output_is("tcl",<<TCL,<<'OUT',"regexp no args");
regexp
TCL
wrong # args: should be "regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...?"
OUT

#!/usr/bin/perl

use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test tests => 3;
use Test::More;


language_output_is("tcl",<<TCL,<<'OUT',"regexp no args");
regexp
TCL
wrong # args: should be "regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...?"
OUT


TODO: {
  local $TODO="not implemented yet.";
  regexp_is  ("asdf","asdf","literal, t");
  regexp_isnt("asdf","fdsa","literal, f");
}


sub regexp_is   { regexp_check(@_,1); }
sub regexp_isnt { regexp_check(@_,0); }

sub regexp_check {
  my ($pattern,$string,$reason,$flag) = @_;

  language_output_is("tcl",<<"TCL",<<"OUT", $reason);

puts [regexp {$pattern} {$string}]

TCL
$flag
OUT

}


Add some helper subs to faciliate simple RE checking in partcl's test suite.
Add some helper subs to faciliate simple RE checking in partcl's test suite.



git-svn-id: 6e74a02f85675cec270f5d931b0f6998666294a3@9783 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
