#!/usr/bin/perl

use strict;
use lib qw(tcl/t t . ../lib ../../lib ../../../lib);
use Parrot::Test qw/noplan/;

my($tcl,$expected);

# XXX heh. nevermind.

#!/usr/bin/perl

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

my($tcl,$expected);

TODO: {
  local $TODO = "pending a language_output_like test.";
    
$tcl = <<"EOTCL";
 puts [time { expr 2+2 }]
EOTCL
$expected = <<EOF;
20 microseconds per iteration
EOF
language_output_is("tcl",$tcl,$expected,"simple time");
}

Make test TODO like now that that works.
Make test TODO like now that that works.


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