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

Update make-testfile for new sourcefile locations

Browse Source
This commit is contained in:
Geert Janssens
2018-04-26 23:01:28 +02:00
parent c71204628d
commit 2498f9393d
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
test-templates/make-testfile
View File

@@ -93,10 +93,10 @@ sub search_external {
my @excludes = qw(test* utest* swig* gnucash_core.c); my @excludes = qw(test* utest* swig* gnucash_core.c);
push @excludes, $infile; push @excludes, $infile;
my $exclude_string = "--exclude=" . join(" --exclude=", @excludes); my $exclude_string = "--exclude=" . join(" --exclude=", @excludes);
my $calls = `egrep -r $name --include="*.c" $exclude_string src | wc -l`; my $calls = `egrep -r $name --include="*.c" $exclude_string bindings common gnucash libgnucash | wc -l`;
chomp $calls; chomp $calls;
$calls =~ s/\s//g; $calls =~ s/\s//g;
my $files = `egrep -rl $name --include="*.c" $exclude_string src | wc -l`; my $files = `egrep -rl $name --include="*.c" $exclude_string bindings common gnucash libgnucash | wc -l`;
chomp $files; chomp $files;
$files =~ s/\s//g; $files =~ s/\s//g;
@@ -107,10 +107,10 @@ sub search_scheme {
my ($name) = @_; my ($name) = @_;
$name =~ tr/_/-/; $name =~ tr/_/-/;
my $egrepre = '\b' . $name . '[^\w_-]'; my $egrepre = '\b' . $name . '[^\w_-]';
my $calls = `egrep -r "$egrepre" --include="*.scm" src | wc -l`; my $calls = `egrep -r "$egrepre" --include="*.scm" bindings common gnucash libgnucash | wc -l`;
chomp $calls; chomp $calls;
$calls =~ s/\s//g; $calls =~ s/\s//g;
my $files = `egrep -rl "$egrepre" --include="*.scm" src | wc -l`; my $files = `egrep -rl "$egrepre" --include="*.scm" bindings common gnucash libgnucash | wc -l`;
chomp $files; chomp $files;
$files =~ s/\s//g; $files =~ s/\s//g;
@@ -119,10 +119,10 @@ sub search_scheme {
sub search_glade { sub search_glade {
my ($name) = @_; my ($name) = @_;
my $calls = `egrep -r $name --include="*.glade" --include=*.xml" --include=*.ui" src | wc -l`; my $calls = `egrep -r $name --include="*.glade" --include=*.xml" --include=*.ui" bindings common gnucash libgnucash | wc -l`;
chomp $calls; chomp $calls;
$calls =~ s/\s//g; $calls =~ s/\s//g;
my $files = `egrep -rl $name --include="*.glade" --include=*.xml" --include=*.ui" src | wc -l`; my $files = `egrep -rl $name --include="*.glade" --include=*.xml" --include=*.ui" bindings common gnucash libgnucash | wc -l`;
chomp $files; chomp $files;
$files =~ s/\s//g; $files =~ s/\s//g;
@@ -277,8 +277,8 @@ make_testfile "Author Name <author@email.addr>" path/to/input [path/to/output]
Creates template unit test files from C source files. The default Creates template unit test files from C source files. The default
output file is utest-filename in a subdirectory named "test". For output file is utest-filename in a subdirectory named "test". For
example, if the input file is src/engine/Account.c, the default output example, if the input file is libgnucash/engine/Account.c, the default output
file will be src/engine/test/utest-Account.c. file will be libgnucash/engine/test/utest-Account.c.
The program scans the input file to find function signatures. Each The program scans the input file to find function signatures. Each
function signature will generate a comment with the function's function signature will generate a comment with the function's