update unit tests to new types

tests/plunit/web_api/irrelevance.plt

@@ -67,9 +67,12 @@ test(parameter_no_dict,
         [
             forall(type_not(dict, OtherTypeValue)),
             throws(parse_error(
-                        type_mismatch(dict([abs_path:atom]), OtherTypeValue), 
+                        type_mismatch(dict([abs_path:AbsPathType]), OtherTypeValue), 
                         root)),
-            setup(setup_irrelevance_throws(some_error)),
+            setup((
+              web_api:abs_path_type(AbsPathType),
+              setup_irrelevance_throws(some_error)
+            )),
             cleanup(cleanup_irrelevance_throws)
         ]) :- 
     web_api:do_handle_irrelevant_file(OtherTypeValue,_).
@@ -112,11 +115,13 @@ test(abs_path_wrong_type,
                     type_is(dict, RandomDict),
                     type_not_atom(OtherTypeValue)
                 )),
-            setup((setup_irrelevance_throws(some_error),
-                    put_dict(t{abs_path:OtherTypeValue}, RandomDict, Dict)            
+            setup((
+                web_api:abs_path_type(AbsPathType),
+                setup_irrelevance_throws(some_error),
+                put_dict(t{abs_path:OtherTypeValue}, RandomDict, Dict)            
             )),
             cleanup(cleanup_irrelevance_throws),
-            throws(parse_error(type_mismatch(atom, OtherTypeValue), key(abs_path)))
+            throws(parse_error(type_mismatch(AbsPathType, OtherTypeValue), key(abs_path)))
         ]) :- 
     web_api:do_handle_irrelevant_file(Dict,_).
 
@@ -354,8 +359,12 @@ test(abs_path_value_wrong_type,
                                 another_key:some_atom})
                 )
             ),
-            throws(parse_error(type_mismatch(atom, OtherTypeValue), key(abs_path))),
-            setup(setup_explain_throws(some_error)),
+            throws(parse_error(type_mismatch(AbsPathType, OtherTypeValue),
+                               key(abs_path))),
+            setup((
+              web_api:abs_path_type(AbsPathType),
+              setup_explain_throws(some_error)
+            )),
             cleanup(cleanup_explain_throws)
         ]) :- 
     web_api:do_handle_explain(Parameters,_Result,_More).