diff options
Diffstat (limited to 'src/libvterm/t/run-test.pl')
| -rw-r--r-- | src/libvterm/t/run-test.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/libvterm/t/run-test.pl b/src/libvterm/t/run-test.pl index d8fbe09ed..a6de7a27d 100644 --- a/src/libvterm/t/run-test.pl +++ b/src/libvterm/t/run-test.pl @@ -140,14 +140,14 @@ sub do_line } } # Assertions start with '?' - elsif( $line =~ s/^\?([a-z]+.*?=)\s+// ) { + elsif( $line =~ s/^\?([a-z]+.*?=)\s*// ) { do_onetest if defined $command; my ( $assertion ) = $1 =~ m/^(.*)\s+=/; $hin->print( "\?$assertion\n" ); my $response = <$hout>; defined $response or wait, die "Test harness failed - $?\n"; - chomp $response; + chomp $response; $response =~ s/^\s+|\s+$//g; if( $response ne $line ) { print "# Assert $assertion failed:\n" . |