@@ -27,50 +27,60 @@ def earl_preamble(options)
2727)
2828end
2929
30- def run_tc ( t , options )
31- STDERR . write "run #{ t . name } "
30+ def run_tc ( tc , options )
31+ STDERR . write "run #{ tc . name } "
32+
33+ if options [ :verbose ]
34+ puts "\n TestCase: #{ tc . inspect } "
35+ puts "\n Input:\n " + tc . input
36+ puts "\n Data:\n " + tc . data if tc . data
37+ puts "\n Expected:\n " + tc . expected if tc . expected
38+ end
39+
3240 result = "untested"
3341
3442 begin
35- operator = LD ::Patch . parse ( t . input ,
36- base_uri : t . base ,
43+ operator = LD ::Patch . parse ( tc . input ,
44+ base_uri : tc . base ,
3745 validate : true ,
3846 errors : [ ]
3947 )
40- if t . positive_test?
41- if t . evaluate?
42- ug = operator . execute ( t . target_graph )
43- result = t . target_graph . isomorphic_with? ( t . expected_graph ) ? "passed" : "failed"
48+ if tc . positive_test?
49+ if tc . evaluate?
50+ ug = operator . execute ( tc . target_graph )
51+ result = tc . target_graph . isomorphic_with? ( tc . expected_graph ) ? "passed" : "failed"
4452 else
4553 result = operator . is_a? ( SPARQL ::Algebra ::Operator ) ? "passed" : "failed"
4654 end
4755 else
48- operator . execute ( t . target_graph ) if t . evaluate?
49- if %w( turtle-syntax-bad-struct-09 turtle-syntax-bad-struct-10 ) . include? ( t . name )
56+ operator . execute ( tc . target_graph ) if tc . evaluate?
57+ if %w( turtle-syntax-bad-struct-09 turtle-syntax-bad-struct-10 ) . include? ( tc . name )
5058 STDERR . puts "Multiple '.' allowed in this grammar" unless options [ :quiet ]
5159 result = "inapplicable"
5260 else
5361 result = "failed"
5462 end
5563 end
5664 rescue LD ::Patch ::ParseError => e
57- if %w( turtle-eval-bad-01 turtle-eval-bad-02 turtle-eval-bad-03 ) . include? ( t . name )
65+ if %w( turtle-eval-bad-01 turtle-eval-bad-02 turtle-eval-bad-03 ) . include? ( tc . name )
5866 result = "passed"
59- elsif t . syntax? && t . negative_test?
67+ elsif tc . syntax? && tc . negative_test?
6068 result = "passed"
6169 else
70+ STDERR . puts "#{ "exception:" unless options [ :quiet ] } : #{ e } "
6271 result = "failed"
6372 end
6473 rescue LD ::Patch ::Error => e
65- if t . evaluate? && t . negative_test?
66- result = e . code == t . statusCode . to_i ? "passed" : "failed"
74+ if tc . evaluate? && tc . negative_test?
75+ result = e . code == tc . statusCode . to_i ? "passed" : "failed"
6776 else
6877 result = "failed"
6978 end
79+ STDERR . puts "#{ "exception:" unless options [ :quiet ] } : #{ e } " if result == "failed"
7080 end
7181
7282 if options [ :earl ]
73- test = t . id . sub ( "ldp:" , Fixtures ::SuiteTest ::BASE + "manifest.ttl#" )
83+ test = tc . id . sub ( "ldp:" , Fixtures ::SuiteTest ::BASE + "manifest.ttl#" )
7484 options [ :output ] . puts %{
7585[ a earl:Assertion;
7686 earl:assertedBy <#{ ASSERTOR } >;
@@ -95,7 +105,7 @@ options = {
95105 validate : true ,
96106 verbose : false ,
97107}
98- suite = "rdfxml"
108+
99109opts = GetoptLong . new (
100110 [ "--debug" , GetoptLong ::NO_ARGUMENT ] ,
101111 [ "--earl" , GetoptLong ::NO_ARGUMENT ] ,
@@ -135,7 +145,7 @@ result_count = {}
135145
136146 Fixtures ::SuiteTest ::Manifest . open ( manifest ) do |m |
137147 m . entries . each do |tc |
138- next unless ARGV . empty? || ARGV . any? { |n | tc . name . match ( /#{ n } / ) }
148+ next unless ARGV . empty? || ARGV . any? { |n | tc . name . match? ( /#{ n } / ) }
139149 run_tc ( tc , options . merge ( result_count : result_count ) )
140150 end
141151 end
0 commit comments