Author: bernhard
Date: Thu Dec 29 09:44:20 2005
New Revision: 10766
Modified:
trunk/languages/tcl/t/Parrot/Test/Tcl.pm
Log:
Tcl: indentation of Test/Tcl.pm
Modified: trunk/languages/tcl/t/Parrot/Test/Tcl.pm
==============================================================================
--- trunk/languages/tcl/t/Parrot/Test/Tcl.pm (original)
+++ trunk/languages/tcl/t/Parrot/Test/Tcl.pm Thu Dec 29 09:44:20 2005
@@ -28,56 +28,56 @@ foreach my $func ( keys %language_test_m
*{"Parrot::Test::Tcl::$func"} = sub ($$;$) {
- my ($self, $code, $output, $desc) = @_;
+ my ($self, $code, $output, $desc) = @_;
- $count = $self->{builder}->current_test + 1;
+ $count = $self->{builder}->current_test + 1;
- $desc = $language unless $desc;
+ $desc = $language unless $desc;
- my $lang_f = Parrot::Test::per_test('.tcl',$count);
- my $out_f = Parrot::Test::per_test('.out',$count);
- my $parrotdir = dirname $self->{parrot};
-
- $TEST_PROG_ARGS = $ENV{TEST_PROG_ARGS} || '';
- my $args = $TEST_PROG_ARGS;
-
- # flatten filenames (don't use directories)
- $lang_f = (File::Spec->splitpath($lang_f))[2];
- $out_f = (File::Spec->splitpath($out_f))[2];
- # but, always put the test in a tempdir, so we're not cluttering
- $lang_f = File::Spec->catfile(File::Spec->tmpdir(),$lang_f);
- $out_f = File::Spec->catfile(File::Spec->tmpdir(),$out_f);
- Parrot::Test::generate_code( $code, $parrotdir, $count, $lang_f );
-
- my $cmd;
- my $exit_code = 0;
- my $pass = 0;
+ my $lang_f = Parrot::Test::per_test('.tcl',$count);
+ my $out_f = Parrot::Test::per_test('.out',$count);
+ my $parrotdir = dirname $self->{parrot};
+
+ $TEST_PROG_ARGS = $ENV{TEST_PROG_ARGS} || '';
+ my $args = $TEST_PROG_ARGS;
+
+ # flatten filenames (don't use directories)
+ $lang_f = (File::Spec->splitpath($lang_f))[2];
+ $out_f = (File::Spec->splitpath($out_f))[2];
+ # but, always put the test in a tempdir, so we're not cluttering
+ $lang_f = File::Spec->catfile(File::Spec->tmpdir(),$lang_f);
+ $out_f = File::Spec->catfile(File::Spec->tmpdir(),$out_f);
+ Parrot::Test::generate_code( $code, $parrotdir, $count, $lang_f );
+
+ my $cmd;
+ my $exit_code = 0;
+ my $pass = 0;
- $cmd = "$self->{parrot} $args languages/tcl/tcl.pbc $lang_f";
+ $cmd = "$self->{parrot} $args languages/tcl/tcl.pbc $lang_f";
- $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
- STDOUT => $out_f, STDERR => $out_f);
+ $exit_code = Parrot::Test::run_command($cmd, CD => $self->{relpath},
+ STDOUT => $out_f, STDERR => $out_f);
- unless ($pass) {
- my $file = Parrot::Test::slurp_file($out_f);
- my $builder_func = $language_test_map{$func};
+ unless ($pass) {
+ my $file = Parrot::Test::slurp_file($out_f);
+ my $builder_func = $language_test_map{$func};
- {
- no strict 'refs';
+ {
+ no strict 'refs';
- $pass = $self->{builder}->$builder_func(
Parrot::Test::slurp_file($out_f), $output, $desc );
- }
- $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
+ $pass = $self->{builder}->$builder_func(
Parrot::Test::slurp_file($out_f), $output, $desc );
+ }
+ $self->{builder}->diag("'$cmd' failed with exit code $exit_code")
if $exit_code and not $pass;
- }
+ }
- unless($ENV{POSTMORTEM}) {
- unlink $lang_f;
- unlink $out_f;
- }
+ unless($ENV{POSTMORTEM}) {
+ unlink $lang_f;
+ unlink $out_f;
+ }
- return $pass;
-}
+ return $pass;
+ }
}
1;
