[ViewVC] Diff of: cvsroot/COMP/SCRAM/src/BuildSystem/BuildFile.pm

Comparing COMP/SCRAM/src/BuildSystem/BuildFile.pm (file contents):
Revision 1.1.2.24 by williamc, Mon Jun 19 12:05:04 2000 UTC vs.
Revision 1.1.2.25 by williamc, Wed Jun 21 08:18:23 2000 UTC

-+
+sub Test_start {
-+
+        my $self=shift;
-+
+        my $name=shift;
-+
+        my $hashref=shift;
-+
-+
+        # -- make sure we have the test binary
-+
+        $self->{switch}->checktag($name, $hashref, 'exe');
-+
+        system($ENV{SCRAM_HOME}."/src/scram","build",$$hashref{'exe'});
-+
-+
+        # -- a name for the test
-+
+        $self->{switch}->checktag($name, $hashref, 'name');
-+
-+
+        # -- set up a tester object
-+
+        push @{$self->{testcontext}}, $$hashref{'name'};
-+
+        my $tester=BuildSystem::Tester->new();
-+
+        if ( ! exists $self->{testers}{$$hashref{'name'}} ) {
-+
+           $self->{testers}{$$hashref{'name'}}=$tester;
-+
+        }
-+
+        else {
-+
+           $self->{switch}->parseerror("Second definition of $name "
-+
+                                                        .$$hashref{'name'});
-+
+        }
-+
+}
-+
-+
+sub Test_end {
-+
+        my $self=shift;
-+
+        my $name=shift;
-+
+        my $hashref=shift;
-+
-+
+        my $tester=$self->{testers}{pop @{$self->{testcontext}}};
-+
+        $tester->run();
-+
+}
-+
+sub Group_start {
+        my $self=shift;
+        my $name=shift;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines