IntenseFinance/neovim
3
0
Fork 0
mirror of https://github.com/neovim/neovim.git synced 2025-02-25 18:55:25 -06:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #1746 from fwalch/improve-legacy2luatest

Browse Source 
Improve legacy2luatest script.
This commit is contained in:
Justin M. Keyes 2014-12-27 12:27:09 -05:00
commit 68637debf6
1 changed files with 26 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
scripts/legacy2luatest.pl
View File

@ -58,11 +58,12 @@ sub read_in_file {
unshift @{$command_lines}, @{$input_lines}; unshift @{$command_lines}, @{$input_lines};
unshift @{$command_lines}, "insert([["; unshift @{$command_lines}, "insert([[";
push @{$test_body_lines}, @{$command_lines};
@{$command_lines} = ();
@{$input_lines} = (); @{$input_lines} = ();
} }
# Output remaining command lines.
push @{$test_body_lines}, @{$command_lines};
@{$command_lines} = ();
} }
sub format_comment { sub format_comment {
@ -173,11 +174,9 @@ sub read_in_file {
$state = $states{$state}->($_); $state = $states{$state}->($_);
} }
# If not all input lines have been processed, # If not all lines have been processed yet,
# do it now. # do it now.
if (@input_lines) { end_input \@input_lines, \@command_lines, \@test_body_lines;
end_input \@input_lines, \@command_lines, \@test_body_lines;
}
close $in_file_handle; close $in_file_handle;
@ -226,13 +225,17 @@ if ($#ARGV != 1) {
} }
my @legacy_suffixes = ('.in', '.ok'); my @legacy_suffixes = ('.in', '.ok');
my ($test_name, $base_path, $suffix) = fileparse($legacy_testfile, @legacy_suffixes); my ($base_name, $base_path, $suffix) = fileparse($legacy_testfile, @legacy_suffixes);
my $in_file = catfile($base_path, $test_name . '.in'); my $in_file = catfile($base_path, $base_name . '.in');
my $ok_file = catfile($base_path, $test_name . '.ok'); my $ok_file = catfile($base_path, $base_name . '.ok');
# Remove leading 'test'.
my $test_name = $base_name;
$test_name =~ s/^test_?//;
my $spec_file = do { my $spec_file = do {
if ($test_name =~ /^test([0-9]+)/) { if ($test_name =~ /^([0-9]+)/) {
catfile($out_dir, sprintf('%03d', $1) . '_' . $test_name . '_spec.lua') catfile($out_dir, sprintf('%03d', $1) . '_spec.lua')
} else { } else {
catfile($out_dir, $test_name . '_spec.lua') catfile($out_dir, $test_name . '_spec.lua')
} }
@ -250,7 +253,13 @@ if (! -d $out_dir) {
if (-f $spec_file) { if (-f $spec_file) {
say "Output file $spec_file already exists."; say "Output file $spec_file already exists.";
exit 4; print "Overwrite (Y/n)? ";
my $input = <STDIN>;
chomp($input);
unless ($input =~ /^y|Y/) {
say "Aborting.";
exit 4;
}
} }
# Read .in and .ok files. # Read .in and .ok files.
@ -267,8 +276,8 @@ print $spec_file_handle <<"EOS";
@{[join "\n", @{$description_lines}]} @{[join "\n", @{$description_lines}]}
local helpers = require('test.functional.helpers') local helpers = require('test.functional.helpers')
local clear, feed, insert = helpers.clear, helpers.feed, helpers.insert local feed, insert, source = helpers.feed, helpers.insert, helpers.source
local execute, expect = helpers.execute, helpers.expect local clear, execute, expect = helpers.clear, helpers.execute, helpers.expect
describe('$test_name', function() describe('$test_name', function()
setup(clear) setup(clear)
@ -280,3 +289,5 @@ end)
EOS EOS
close $spec_file_handle; close $spec_file_handle;
say "Written to $spec_file."