diff options
Diffstat (limited to 'test/e2e/remove-betrue')
-rwxr-xr-x | test/e2e/remove-betrue | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/test/e2e/remove-betrue b/test/e2e/remove-betrue deleted file mode 100755 index dd56ca818..000000000 --- a/test/e2e/remove-betrue +++ /dev/null @@ -1,48 +0,0 @@ -#!/usr/bin/perl -# -# one-shot script for #12387 -# -use warnings; -use strict; -use File::Basename qw(dirname); - -chdir(dirname($0)); - -for my $f (glob('*_test.go')) { - my ($indent, $okvar, $sessionvar, $s); - my $prev = ''; - - open my $fh_in, '<', $f or die; - open my $fh_out, '>', "$f.tmp.$$" or die; - while (<$fh_in>) { - if (/^(\s+)(\S+),\s+_\s+:?=\s+(\S+)\.GrepString\((.*)\)/) { - print { $fh_out } $prev; - $prev = $_; - ($indent, $okvar, $sessionvar, $s) = ($1, $2, $3, $4); - next; - } - elsif ($okvar && /^\s+Expect\($okvar\)\.(Should|To)\(BeTrue\(\)\)\s*$/) { - print { $fh_out} $indent, "Expect($sessionvar.OutputToString()).To(ContainSubstring($s))\n"; - $okvar = $sessionvar = $s = $prev = ''; - next; - } - else { - print { $fh_out } $prev; - $prev = $_; - $okvar = $sessionvar = $s = ''; - - # Handle other common cases - $prev =~ s{ -^ (\s+) Expect\((\S+)\.LineInOutputContains\((.*?)\)\)\.To\(BeTrue\(\)\) - }{${1}Expect($2.OutputToString()).To(ContainSubstring($3))}xx; - - $prev =~ s{ -^ (\s+) Expect\((\S+)\.LineInOutputStartsWith\((.*)\)\)\.To\(BeTrue\(\)\) - }{${1}Expect($2.OutputToStringArray()).To(ContainElement(HavePrefix($3)))}xx; - - } - } - print { $fh_out } $prev; - close $fh_out or die; - rename "$f.tmp.$$" => "$f" or die; -} |