mirror of
https://github.com/rwxrob/dot
synced 2024-11-18 15:25:52 +00:00
27 lines
495 B
Plaintext
27 lines
495 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
use v5.14;
|
||
|
|
|
||
|
|
# Extracts the names of the functions in the target file or from STDIN
|
||
|
|
# and prints test stubs for them.
|
||
|
|
|
||
|
|
sub print_test {
|
||
|
|
my $name = shift;
|
||
|
|
say <<EOM;
|
||
|
|
func Test$name(t *testing.T) {
|
||
|
|
t.Error("unimplemented")
|
||
|
|
}
|
||
|
|
|
||
|
|
EOM
|
||
|
|
}
|
||
|
|
|
||
|
|
my $arg = shift;
|
||
|
|
$arg=~s/\.go//;
|
||
|
|
-f "$arg.go" or die "File not found: $arg.go";
|
||
|
|
my $fh = *STDIN;
|
||
|
|
-f "$arg.go" and open($fh, '<', "$arg.go");
|
||
|
|
while (<$fh>) {
|
||
|
|
next unless /^func +(?:\(\w+ +\*?(\w+)\))? *(\w+)/;
|
||
|
|
print_test $1.ucfirst($2);
|
||
|
|
}
|
||
|
|
|