summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d905bc5)
Add updated perl unit test
-Run analyse :
-./analyse sirens_fxt.txt
+Run analyse.pl:
+./analyse.pl sirens_fxt.txt
-Run tests (need perl-Module-Build and perl-Test-More package):
+Run analyse.pl tests (need perl-Module-Build and perl-Test-More package):
perl Build.pl
./Build manifest
./Build test
perl Build.pl
./Build manifest
./Build test
+
+Build analyse.c:
+gcc -m64 -std=c11 -pedantic -Wall -Wshadow -Wpointer-arith -Wcast-qual -Wstrict-prototypes -Wmissing-prototypes analyse.c -o analyse
+
+Run analyse.c:
+./analyse sirens_fxt.txt
+
+Run analyse.c tests:
+./cunittest
$siren->parse('sirens_3_3.txt');
like($siren->show(), qr/^Uniques: 3, duplicates: 3$/, 'Uniques: 3, duplicates: 3');
undef $siren;
$siren->parse('sirens_3_3.txt');
like($siren->show(), qr/^Uniques: 3, duplicates: 3$/, 'Uniques: 3, duplicates: 3');
undef $siren;
+
+# Test unique=77445 duplicate=2256
+$siren = lib::siren->new();
+$siren->parse('sirens_fxt.txt');
+like($siren->show(), qr/^Uniques: 77445, duplicates: 2256$/, 'Uniques: 77445, duplicates: 2256');
+undef $siren;