Browse Source

- minor fixes

development
Andreas Romeyke 2 years ago
parent
commit
4d2775d110
  1. 2
      t/Testcall.pm
  2. 4
      t/test_grammar.t

2
t/Testcall.pm

@ -66,7 +66,7 @@ sub call_checkit_check_config {
open(my $FOO, "|$checkit_check_config >/dev/null") or die "check failed: $!\n";
print $FOO $grammar;
close $FOO;
#print "test '$?'\n";
# print "test '$?'\n";
my $ret=0;
if ($? == -1) {
die "failed to execute: $!\n";

4
t/test_grammar.t

@ -182,13 +182,13 @@ ok( call_checkit_check_config("256; optdepends(255.range(0,1)); range(100,1)\n")
ok( call_checkit_check_config("256; optdepends(255.range(0,1)); logical_or(only(100),only(1))\n") , "simple tag optdepends(255.range(0,1)) logical_or(only(100),only(1)))");
ok( call_checkit_check_config("256; optdepends(255.range(0,1)); logical_or(only(1),only(100))\n") , "simple tag optdepends(255.range(0,1)) logical_or(only(1),only(100)))");
#
my $grammarfile="$testdir/grammar";
my $grammarfile="${testdir}grammar";
my $grammar=<<"GRAMMAR";
256; mandatory; any
GRAMMAR
write_file($grammarfile, $grammar);
ok( call_checkit_check_config("include($grammarfile)\n"), "include( $grammarfile )");
ok( call_checkit_check_config("include($grammarfile)\n"), "include($grammarfile)");
ok( call_checkit_check_config("256; mandatory; only(2^32)\n") , "simple tag only(2^32)");
ok( call_checkit_check_config("256; mandatory; only(0x0)\n") , "simple tag only(0x0)");

Loading…
Cancel
Save