From 824a6db3ff111f8d2427ac5adad0362bf078630a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= Date: Thu, 2 Sep 2010 15:44:33 +0200 Subject: Add test suite for xmerl --- lib/xmerl/test/gen_testsuits-2001-01-16.erl | 744 ++++++++++++++++++++++++++++ 1 file changed, 744 insertions(+) create mode 100644 lib/xmerl/test/gen_testsuits-2001-01-16.erl (limited to 'lib/xmerl/test/gen_testsuits-2001-01-16.erl') diff --git a/lib/xmerl/test/gen_testsuits-2001-01-16.erl b/lib/xmerl/test/gen_testsuits-2001-01-16.erl new file mode 100644 index 0000000000..32b4bd836e --- /dev/null +++ b/lib/xmerl/test/gen_testsuits-2001-01-16.erl @@ -0,0 +1,744 @@ +%%%------------------------------------------------------------------- +%%% File : test2.erl +%%% Author : Bertil Karlsson +%%% Description : +%%% +%%% Created : 26 Sep 2006 by Bertil Karlsson +%%%------------------------------------------------------------------- +-module(gen_testsuits-2001-01-16). + +-compile(export_all). +-include_lib("xmerl/include/xmerl.hrl"). + + +%% generate(Suite) generates test suite modules. In those modules are +%% all test cases extracted from the corresponding ".testSet" +%% file. This program must be in the xmlSchema2002-01-16 directory of +%% the unpacked xmlSchema2002-01-16.tar file. The test suite files are +%% created in this directory. +generate(all) -> + generate(nist), + generate(sun), + generate(msx); +generate(nist) -> + io:format("generating test suite source ~p~n", + ["NISTXMLSchema1-0-20020116.testSet"]), + generate("NISTXMLSchema1-0-20020116.testSet"), + io:format("compiling test suite source~n",[]), + {ok,_}=compile:file("xmerl_xsd_NIST2002-01-16_SUITE.erl",[{i,"/view/bertil_xmerl/clearcase/otp/erts/lib/test_server/include/"},{i,"/view/bertil_xmerl/clearcase/otp/erts/lib/xmerl/include/"}]); +generate(sun) -> + io:format("generating test suite source ~p~n", + ["SunXMLSchema1-0-20020116.testSet"]), + generate("SunXMLSchema1-0-20020116.testSet"), + io:format("compiling test suite source~n",[]), + {ok,_}=compile:file("xmerl_xsd_Sun2002-01-16_SUITE.erl",[{i,"/view/bertil_xmerl/clearcase/otp/erts/lib/test_server/include/"},{i,"/view/bertil_xmerl/clearcase/otp/erts/lib/xmerl/include/"}]); +generate(msx) -> + io:format("generating test suite source ~p~n", + ["MSXMLSchema1-0-20020116.testSet"]), + generate("MSXMLSchema1-0-20020116.testSet"), + io:format("compiling test suite source~n",[]), + {ok,_}=compile:file("xmerl_xsd_MS2002-01-16_SUITE.erl",[{i,"/view/bertil_xmerl/clearcase/otp/erts/lib/test_server/include/"},{i,"/view/bertil_xmerl/clearcase/otp/erts/lib/xmerl/include/"}]); +generate(Suite) -> + {E,_} = xmerl_scan:file(Suite), + {ok,FileName} = create_suite_name(xmerl_xpath:string("./@name",E)), + case create_suite_file(FileName) of + {ok,IO} -> + emit_licens_text(IO), + emit_module_header(IO,list_to_atom(filename:rootname(FileName))), + generate2(abbrev(Suite),E,IO); + _ -> + failed + end. +generate2(Suite,E,IO) -> + %% Each testGroup name is a function in the test suite. + TestGroupNames = test_case_names(Suite), + emit_all_function(TestGroupNames,IO), + emit_init_per_suite(IO,Suite), + emit_init_per_testcase(IO), + TestGroups=[X||X=#xmlElement{}<-E#xmlElement.content], + TestGroupGroups = group_testGroups(test_case_prefix(Suite),TestGroups), + generate_test_case_functions(Suite,TestGroupGroups,IO). + +group_testGroups(Prefs,TGs) -> + group_testGroups(Prefs,TGs,[]). +group_testGroups([],[],Acc) -> + lists:reverse(Acc); +group_testGroups(Prefs,TGs,Acc) -> + SplitPrefs = fun([{_,[]}|T],F) -> + F(T,F); + ([{N,[H|T1]}|T2],_) -> + {H,N,[{N,T1}|T2]}; + ([H|T],_) -> + {H,H,T}; + (A,B) -> + io:format("SplitRefs: ~nA: ~p~nB: ~p~nTGs: ~p~n",[A,B,hd(TGs)]), + exit(dummy) + end, + {Pref,TCName,Prefs2} = SplitPrefs(Prefs,SplitPrefs), + Pred = + fun(E) -> + case xmerl_xpath:string("@name",E) of + [#xmlAttribute{value=V}] -> + lists:prefix(Pref,V); + _ -> false + end + end, + {TGG,TGs2}=lists:splitwith(Pred,TGs), +%% case TGG of +%% [] -> +%% io:format("hd(Prefs): ~p~n",[hd(Prefs)]); +%% _ -> +%% ok +%% end, + group_testGroups(Prefs2,TGs2,acc_group({TCName,TGG},Acc)). + +acc_group({Name,TGG},[{Name,AccP}|Acc]) -> + [{Name,AccP++TGG}|Acc]; +acc_group(TGG,Acc) -> + [TGG|Acc]. + +generate_test_case_functions(_Suite,[],IO) -> + %%emit_schema_test(IO), + %%emit_instance_test(IO), + file:close(IO); +generate_test_case_functions(Suite,[{TCName,TGG}|TGGs],IO) -> + emit_test_case_func(true,TCName,comment(TCName,TGG),IO), + generate_test_cases(Suite,TGG,0,0,IO), + generate_test_case_functions(Suite,TGGs,IO). + +generate_test_cases(_,[],SIndex,EIndex,IO) -> + emit_result_list_test(IO,SIndex,EIndex), +%% emit_schema_result_list(IO,SIndex,EIndex), +%% emit_instance_result_list(IO,SIndex,EIndex), + ok; +generate_test_cases(Suite,[El|Els],SIndex,EIndex,IO) -> + SchemaTest = xmerl_xpath:string("schemaTest",El), + InstanceTest = xmerl_xpath:string("instanceTest",El), + SIndex2 = generate_schema_tests(Suite,SchemaTest,IO,SIndex, + any_instance_tests(InstanceTest)), + + EIndex2=generate_instance_tests(InstanceTest,mk_state(SIndex),EIndex,IO), + case {Els,any_tests(SchemaTest,InstanceTest)} of +%% {[],true} -> +%% emit(IO,[".",nl]); +%% {_,true} -> +%% emit(IO,[",",nl]); + _ -> + ok + end, + emit(IO,[nl,nl]), + generate_test_cases(Suite,Els,SIndex2,EIndex2,IO). + + + +%% 0 or 1 schemaTest/ testGroup, but a schemaTest may reference many schemas +generate_schema_tests(_Suite,[],_IO,SIndex,_) -> + SIndex; +generate_schema_tests(Suite,[SchemaTest],IO,SIndex,AnyInstanceTests) -> + case xmerl_xpath:string("current[@status=\"accepted\" or @status=\"stable\"]",SchemaTest) of + [] -> + SIndex; + _ -> + case exclude_case(Suite,xmerl_xpath:string("@name",SchemaTest)) of + true -> + SIndex; + _ -> + Refs = xmerl_xpath:string("schemaDocument/@xlink:href", + SchemaTest), + ExpectedValue = xmerl_xpath:string("expected/@validity", + SchemaTest), + ExpectedReturnValue = + expected_return_value_st(ExpectedValue,SIndex), + generate_schema_validation_call(ExpectedReturnValue, + Refs,0,SIndex, + IO,length(Refs)>1, + AnyInstanceTests) + end + end. + + +generate_schema_validation_call(_RetVal,[],_Num,Sindex,_IO,_,false) -> +%% emit(IO,[RetVal]), + %% emit(IO,[".",nl]), + Sindex; +generate_schema_validation_call(_RetVal,[],_Num,Sindex,_IO,_,true) -> + %% emit(IO,[RetVal]), +% emit(IO,[",",nl]), + Sindex; +generate_schema_validation_call(RetVal,[#xmlAttribute{value=Link}|Refs], + Num,Sindex,IO,ManySchemas,AnyInstanceTests) -> + XsdBase = filename:dirname(Link), +%% FileName = lists:flatten(io_lib:format("filename:join([?config(data_dir,Config), ~p])", [list_to_atom(Link)])), + AccState = + case Num of + 0 -> + ""; + _ -> + ",{state," ++ mk_state(Sindex - 1) ++ "}" + end, + if + Sindex == 0 -> + emit(IO,[indent(2),mk_STResList(0)," = [],",nl,nl]); + true -> + ok + end, + RetState = + if + ManySchemas;AnyInstanceTests -> + mk_state(Sindex); + true -> + "_" + end, +%% emit(IO,[indent(2),"?line ",mk_state(Num)," = xmerl_xsd:process_schema(",nl, +%% indent(25),FileName,",",nl, +%% indent(25),"[{xsdbase,filename:join([?config(data_dir,Config),'", +%% XsdBase,"'])}",AccState,"]),",nl]), + emit(IO,[indent(2),"?line {",mk_STRes(Sindex),",",RetState, + "} = xmerl_xsd_lib:schema_test(Config,", + list_to_atom(Link),",",list_to_atom(XsdBase),",",RetVal,AccState,"),",nl]), + emit(IO,[indent(2),mk_STResList(Sindex+1)," = [",mk_STRes(Sindex),"|", + mk_STResList(Sindex),"],",nl]), + generate_schema_validation_call(RetVal,Refs,Num+1,Sindex+1,IO, + ManySchemas,AnyInstanceTests). + +%% 0 or many instanceTests / testGroup +generate_instance_tests([],_,EI,_IO) -> + EI; +generate_instance_tests([InstanceTest|ITs],State,Num,IO) -> + case xmerl_xpath:string("current[@status=\"accepted\" or @status=\"stable\"]",InstanceTest) of + [] -> + ok; + _ -> + if + Num == 0 -> + emit(IO,[indent(2),mk_ITResList(0)," = [],",nl]); + true -> + ok + end, + [Ref] = xmerl_xpath:string("instanceDocument/@xlink:href",InstanceTest), + ExpectedValue = xmerl_xpath:string("expected/@validity", + InstanceTest), + ExpectedReturnValue = expected_return_value_it(ExpectedValue), + generate_instance_validation_call(ExpectedReturnValue,Ref, + State,Num,IO) + end, + case ITs of + [] -> ok; %%emit(IO,[".",nl]); + _ ->ok% emit(IO,[",",nl]) + end, + generate_instance_tests(ITs,State,Num+1,IO). + +generate_instance_validation_call(ExpectedReturnValue, + #xmlAttribute{value=Link},State,Num,IO) -> + XMLBase = filename:dirname(Link), + %%FileName = filename:basename(Link), +%% FileName = lists:flatten(io_lib:format("filename:join([?config(data_dir,Config), ~p])", [list_to_atom(Link)])), + +%% E = mk_E(Num), + + Res = mk_ITRes(Num), + +%% emit(IO,[indent(2),"?line {",E,",_} = xmerl_scan:file(",FileName,",",nl, +%% indent(32),"[{xmlbase,filename:join([?config(data_dir,Config),'", +%% XMLBase,"'])}]),",nl]), + + emit(IO,[indent(2),"?line ",Res," = xmerl_xsd_lib:instance_test(Config,",list_to_atom(Link),",",list_to_atom(XMLBase),",",ExpectedReturnValue,",",State,"),",nl]), + emit(IO,[indent(2),mk_ITResList(Num+1)," = [",Res,"|",mk_ITResList(Num),"],",nl]). + +%% emit(IO,[indent(2),"?line ",ExpectedReturnValue, +%% " = xmerl_xsd:validate(",E,",[{state,",State,"}])"]). + +any_tests([],[]) -> + false; +any_tests(_,_) -> + true. + +any_instance_tests([]) -> + false; +any_instance_tests(_) -> + true. + +expected_return_value_it([#xmlAttribute{value=Validity}]) -> + case Validity of + "valid" -> + valid; + "invalid" -> + invalid; + _ -> + notKnown + end; +expected_return_value_it([]) -> + "_". + +expected_return_value_st([#xmlAttribute{value=Validity}],_Num) -> +%% RetVal = + case Validity of +%% "valid" -> "#xsd_state{errors=[]}"; +%% "invalid" -> "#xsd_state{errors=[_Err|_Errs]}"; +%% _ -> "#xsd_state{}" +%% end, +%% " ?line " ++ RetVal ++ " = " ++ mk_state(Num). + "valid" -> + valid; + "invalid" -> + invalid; + _ -> + notKnown + end. + +create_suite_name([#xmlAttribute{value=Name}]) -> + FileName = lists:concat(['xmerl_','xsd_',Name,'_SUITE.erl']), + {ok,FileName}; +create_suite_name(_) -> + error. + +create_suite_file(FileName) -> + file:delete(FileName), + case file:open(FileName,[append]) of + {ok,IO} -> {ok,IO}; + _ -> failed + end. + +emit_licens_text(IO) -> + emit(IO,[ +"%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2006-2010. All Rights Reserved. +%% +%% The contents of this file are subject to the Erlang Public License, +%% Version 1.1, (the "License"); you may not use this file except in +%% compliance with the License. You should have received a copy of the +%% Erlang Public License along with this software. If not, it can be +%% retrieved online at http://www.erlang.org/. +%% +%% Software distributed under the License is distributed on an "AS IS" +%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See +%% the License for the specific language governing rights and limitations +%% under the License. +%% +%% %CopyrightEnd% +%%",nl, +"%%",nl, +"%%% Purpose : Test suite for the xmerl application",nl,nl, +"%% Do NOT edit this file. It is generated by the generate_xsd_suite module",nl,"%% For more info read the comments in the header of that file.",nl,nl]). + +emit_module_header(IO,Module) -> + emit(IO,["-module(",{asis,Module},").",nl,nl]), + emit(IO,["-compile(export_all).",nl,nl]), + emit(IO,["-include(",{asis,"test_server.hrl"},").",nl]), + emit(IO,["-include_lib(",{asis,"xmerl/include/xmerl.hrl"},").",nl]), + emit(IO,["-include_lib(",{asis,"xmerl/include/xmerl_xsd.hrl"},").",nl,nl,nl]). + +emit_all_function(TestGroupNames,IO) -> + + emit(IO,["all(suite) -> [",nl]), + emit(IO,[list_to_atom(X)||X<-indent_all(TestGroupNames)]), + emit(IO,["].",nl,nl,nl]). + +emit_init_per_suite(IO,Suite) -> + emit(IO,["%% initialization before the test suite",nl]), + emit(IO,["init_per_suite(Config) ->",nl, + " Dog=test_server:timetrap({minutes,10}),",nl, + " xmerl_xsd_lib:unpack(Config,",Suite,"),",nl, + " {ok,LogFile} = xmerl_xsd_lib:create_error_log_file(Config,",Suite,"),",nl, + " test_server:timetrap_cancel(Dog),",nl, + " [{suite,",Suite,"},{xmerl_error_log,LogFile}|Config].",nl,nl]), + emit(IO,["end_per_suite(Config) ->",nl, + " xmerl_xsd_lib:rmdir(Config,",Suite,"),",nl, + " xmerl_xsd_lib:close_error_log_file(Config),",nl, + " ok.",nl,nl]). + +emit_init_per_testcase(IO) -> + emit(IO,["%% initialization before each testcase",nl]), + emit(IO,["init_per_testcase(TestCase,Config) ->",nl, + indent(2),"Dog=test_server:timetrap({minutes,3}),",nl, + indent(2),"[{testcase,TestCase},{watchdog, Dog}|Config].",nl,nl]), + emit(IO,["%% clean up after each testcase",nl, + "end_per_testcase(_Func,Config) ->",nl, + indent(2),"Dog=?config(watchdog, Config),",nl, + indent(2),"test_server:timetrap_cancel(Dog),",nl, + indent(2),"ok.",nl,nl]). + +emit_test_case_func(false,TestCaseName,_Doc,IO) -> + emit(IO,["%% skipped testcase ",{asis,TestCaseName},".",nl, + "%% There were no schemaTest case or instanceTest case.",nl,nl]); +emit_test_case_func(true,TestCaseName,Doc,IO) -> +%% emit(IO,indent_comment(Doc)), + emit(IO,Doc), + emit(IO,[nl,{asis,list_to_atom(TestCaseName)},"(Config) when is_list(Config) ->",nl]). + + +emit_result_list_test(IO,0,0) -> + emit(IO,[" xmerl_xsd_lib:compare_test_results(Config,[],[]).",nl,nl]); +emit_result_list_test(IO,STI,0) -> + emit(IO,[" xmerl_xsd_lib:compare_test_results(Config,",mk_STResList(STI), + ",[]).",nl,nl]); +emit_result_list_test(IO,0,ITI) -> + emit(IO,[" xmerl_xsd_lib:compare_test_results(Config,[],",mk_ITResList(ITI), + ").",nl,nl]); +emit_result_list_test(IO,STI,ITI) -> + emit(IO,[" xmerl_xsd_lib:compare_test_results(Config,",mk_STResList(STI), + ",",mk_ITResList(ITI),").",nl,nl]). + +emit_schema_result_list(_IO,0,_) -> + ok; +emit_schema_result_list(IO,SIndex,0) -> + emit(IO,[indent(2),"STResults = lists:reverse(",mk_STResList(SIndex),"),",nl]); +emit_schema_result_list(IO,SIndex,_) -> + emit(IO,[indent(2),"STResults = lists:reverse(",mk_STResList(SIndex),"),",nl]). + +emit_instance_result_list(_IO,0,0) -> + ok; +emit_instance_result_list(IO,_,0) -> + emit(IO,[indent(2),"xmerl_xsd_lib:compare_test_results(Config,STResults,[])).",nl]); +emit_instance_result_list(IO,0,I) -> + emit(IO,[indent(2),"xmerl_xsd_lib:compare_test_results(Config,[],lists:reverse(",mk_ITResList(I),")).",nl]); +emit_instance_result_list(IO,_,I) -> +%% emit(IO,indent_all(res_list(0,I))). +%% emit(IO,["ITResults =",nl,"["]++res_list(0,I-1,fun mk_ITRes/1)++["].",nl]). + emit(IO,[indent(2),"xmerl_xsd_lib:compare_test_results(Config,STResults,lists:reverse(",mk_ITResList(I),")).",nl]). + + +emit(IO,[nl|T]) -> + io:format(IO,"~n",[]), + emit(IO,T); +emit(IO,[comma|T]) -> + io:format(IO,",",[]), + emit(IO,T); +emit(IO,[H|T]) -> + print(IO,H), + emit(IO,T); +emit(_,[]) -> + ok. + +print(IO,Str) when is_list(Str) -> + io:format(IO,"~s",[Str]); +print(IO,{asis,Sym}) -> + io:format(IO,"~p",[Sym]); +print(IO,Term) -> + io:format(IO,"~p",[Term]). + +mk_state(I) -> + mk_VarNum("S",I). + +mk_E(Num) -> + mk_VarNum("E",Num). + +mk_VarNum(Var,Num) -> + lists:concat([Var,Num]). + +mk_ITRes(Num) -> + mk_VarNum("ITRes",Num). +mk_STRes(Num) -> + mk_VarNum("STRes",Num). +mk_STResList(Num) -> + mk_VarNum("STResList",Num). +mk_ITResList(Num) -> + mk_VarNum("ITResList",Num). + +res_list(N,N,VariableFun) -> + [VariableFun(N)]; +res_list(M,N,VariableFun) -> + [VariableFun(M),comma|res_list(M+1,N,VariableFun)]. + +indent(I) -> + lists:flatten(lists:duplicate(I," ")). + +indent_all([H|T]) -> + indent_all(T,length(H),[H]). +indent_all([],_Col,Acc) -> + lists:reverse(Acc); +indent_all([H|T],Col,Acc) when is_list(H) -> + case length(H)+Col of + I when I < 80 -> + indent_all(T,I+1,[H,"comma"|Acc]); + _I -> + indent_all(T,length(H),[H,"nl","comma"|Acc]) + end. + +indent_comment(Comment) -> + indent_comment(string:tokens(Comment,"\n\t\s"),3,["%% "]). +indent_comment([],_,Acc) -> + lists:reverse(Acc); +indent_comment([H|T],Col,Acc) -> + case length(H) + Col of + I when I > 80 -> + indent_comment(T,length(H) + 3,[H,"%% ",nl|Acc]); + I -> + indent_comment(T,I + 1,[H," "|Acc]) + end. + +test_case_names(nist) -> + [X||X<-test_case_prefix(nist)]; +test_case_names(msx) -> + [X||X<-lists:map(fun({N,_})->N;(N)when is_list(N) -> N end,test_case_prefix(msx))]; +test_case_names(sun) -> + test_case_prefix(sun). + +abbrev("NISTXMLSchema1-0-20020116.testSet") -> + nist; +abbrev("MSXMLSchema1-0-20020116.testSet") -> + msx; +abbrev(_) -> + sun. +test_case_prefix(msx) -> + ["att","ct","elem","group","idc_","id", + {"mgABCD",["mgA","mgB","mgC","mgD"]}, + {"mgEFG",["mgE","mgF","mgG"]},{"mgHIJ",["mgH","mgI","mgJ"]}, + "mgK",{"mgLM",["mgL","mgM"]},"mgN",{"mgOP",["mgO","mgP"]}, + {"mgQR",["mgQ","mgR"]},"mgS", + {"particlesAB",["particlesA","particlesB"]}, + {"particlesCDE",["particlesC","particlesD","particlesE"]}, + {"particlesFHI",["particlesF","particlesH","particlesI"]}, + "particlesJ", + {"particlesKOSRTQUVW", + ["particlesK","particlesO","particlesS","particlesR","particlesT", + "particlesQ","particlesU","particlesV","particlesW"]}, + {"stABCDE",["stA","stB","stC","stD","stE"]}, + {"stFGH",["stF","stG","stH"]},{"stIJK",["stI","stJ","stK"]}, + "stZ",{"wildABCDEF",["wildA","wildB","wildC","wildD","wildE","wildF"]}, + {"wildGHI",["wildG","wildH","wildI"]}, + {"wildJKLMNQOP",["wildJ","wildK","wildL","wildM","wildN", + "wildQ","wildO","wildP"]},"wildZ"]; +test_case_prefix(nist) -> + ["NISTSchema-anyURI","NISTSchema-base64Binary","NISTSchema-boolean", + "NISTSchema-byte","NISTSchema-date-","NISTSchema-dateTime", + "NISTSchema-decimal","NISTSchema-double","NISTSchema-duration", + "NISTSchema-float","NISTSchema-gDay","NISTSchema-gMonth-", + "NISTSchema-gMonthDay","NISTSchema-gYear-","NISTSchema-gYearMonth", + "NISTSchema-hexBinary","NISTSchema-ID","NISTSchema-int-", + "NISTSchema-integer","NISTSchema-language","NISTSchema-long", + "NISTSchema-Name","NISTSchema-NCName","NISTSchema-negativeInteger", + "NISTSchema-NMTOKEN","NISTSchema-nonNegativeInteger", + "NISTSchema-nonPositiveInteger","NISTSchema-normalizedString", + "NISTSchema-positiveInteger","NISTSchema-QName","NISTSchema-short", + "NISTSchema-string","NISTSchema-time","NISTSchema-token", + "NISTSchema-unsignedByte","NISTSchema-unsignedInt", + "NISTSchema-unsignedLong","NISTSchema-unsignedShort"]; +test_case_prefix(sun) -> + ["Sun-idc001.nogen", "Sun-idc002.e", "Sun-idc002b.e", "Sun-idc003.e", + "Sun-idc004.nogen", "Sun-idc004a.e", "Sun-idc005.nogen", + "Sun-idc006.nogen", "Sun-xsd001", "Sun-xsd002", "Sun-xsd003-1.e", + "Sun-xsd003-2.e", "Sun-xsd003a", "Sun-xsd003b", "Sun-xsd004", + "Sun-xsd005", "Sun-xsd006", "Sun-xsd008", "Sun-xsd011", "Sun-xsd012", + "Sun-xsd013.e", "Sun-xsd014.e", "Sun-xsd015.e", "Sun-xsd016.e", + "Sun-xsd017.e", "Sun-xsd018.e", "Sun-xsd019.e", "Sun-xsd020.e", + "Sun-xsd020-2.e", "Sun-xsd020-3.e", "Sun-xsd020-4.e", "Sun-xsd021", + "Sun-xsd022", "Sun-xsd023.e", "Sun-xsiType1", "Sun-xsiType-block-1", + "Sun-xsiType-block-2", "Sun-xsiType-block-3", "Sun-xsiType-block-4", + "Sun-type-and-subst-1"]. + +comment([$S,$u,$n|_],[TG]) -> + case xmerl_xpath:string("annotation/documentation/text()",TG) of + L=[#xmlText{}|_] -> + ["%% "|[X||#xmlText{value=X}<-L]]; + _ -> + ["%%"] + end; +comment("att",_) -> + ["%% Syntax Checking for Attribute Declaration",nl]; +comment("ct",_) -> + ["%% Syntax Checking for top level complexType Declaration.",nl, + "%% Syntax Checking for simpleContent complexType Declaration.",nl, + "%% Syntax Checking for comlexContent complexType Declaration",nl, + "%% complexType Validation checking",nl, + "%% complexType Schema Component Constraints",nl]; +comment("elem",_) -> + ["%% 3.3.2 XML Representation of Element Declaration.",nl, + "%% 3.3.4 Element Declaration Validation Rules.",nl, + "%% element Validation checking.",nl, + "%% Regular Expression Validation checking.",nl, + "%% Bug Regressions Specs section: 3.3.4",nl]; +comment("group",_) -> + ["%% Syntax Checking Model Group Tests.",nl, + "%% Content Checking Model Group Tests.",nl]; +comment("idc_",_) -> + ["%% 3.11.1 The Identity-constraint Definition Schema Component.",nl]; +comment("id",_) -> + ["%% Identity-constraint Definition Schema Component.",nl, + "%% Identity-constraint Validation Rules.",nl, + "%% Selector identity-constraint xpath bnf.",nl, + "%% Field identity-constraint xpath bnf.",nl, + "%% XPath validation.",nl, + "%% Bug Regressions",nl]; +comment("mgABCD",_) -> + ["%% model groups (ALL).",nl]; +comment("mgEFG",_) -> + ["%% model groups ( sequence ).",nl]; +comment("mgHIJ",_) -> + ["%% model groups ( choice ).",nl]; +comment("mgK",_) -> + ["%% model group validation checking (sequence).",nl]; +comment("mgLM",_) -> + ["%% model group validation checking (choice, all).",nl]; +comment("mgN",_) -> + ["%% Element Sequence Valid.",nl]; +comment("mgOP",_) -> + ["%% All Group Limited.",nl]; +comment("mgQR",_) -> + ["%% Element Declarations Consistent, 3.8.6",nl]; +comment("mgS",_) -> + ["%% Deterministic Sequences.",nl]; +comment("particlesAB",_) -> + ["%% 3.9.1 The Particle Schema Component.",nl]; +comment("particlesCDE",_) -> + ["%% 3.9.4 Particle Validation Rules: Element Sequence Locally Valid.",nl]; +comment("particlesFHI",_) -> + ["%% 3.9.6 Schema Component Constraint: Particle ....",nl]; +comment("particlesJ",_) -> + ["%% 3.9.6 Particle Derivation.",nl]; +comment("particlesKOSRTQUVW",_) -> + ["%% 3.9.6 Particle Restriction.",nl]; +comment("stABCDE",_) -> + ["%% Syntax Checking for simpleType Declaration.",nl]; +comment("stFGH",_) -> + ["%% simpleType Validation checking.",nl]; +comment("stIJK",_) -> + ["%% simpleType Schema Component Constraints.",nl]; +comment("stZ",_) -> + ["%% Bug Regressions.",nl]; +comment("wildABCDEF",_) -> + ["%% Syntax Validation - any.",nl]; +comment("wildGHI",_) -> + ["%% 3.10.4 Wildcard Validation Rules - any.",nl]; +comment("wildJKLMNQOP",_) -> + ["%% Syntax Validation - anyAttribute.",nl]; +comment("wildZ",_) -> + ["%% Bugs - Wildcards.",nl]; +comment("NISTSchema-anyURI",_) -> + ["%% Data type derived by restriction of anyURI by facets",nl]; +comment("NISTSchema-base64Binary",_) -> + ["%% Data type derived by restriction of base64binary by facets",nl]; +comment("NISTSchema-boolean",_) -> + ["%% Data type derived by restriction of boolean by facets",nl]; +comment("NISTSchema-byte",_) -> + ["%% Data type derived by restriction of byte by facets",nl]; +comment("NISTSchema-date-",_) -> + ["%% Data type derived by restriction of date by facets",nl]; +comment("NISTSchema-dateTime",_) -> + ["%% Data type derived by restriction of dateTime by facets",nl]; +comment("NISTSchema-decimal",_) -> + ["%% Data type derived by restriction of decimal by facets",nl]; +comment("NISTSchema-double",_) -> + ["%% Data type derived by restriction of double by facets",nl]; +comment("NISTSchema-duration",_) -> + ["%% Data type derived by restriction of duration by facets",nl]; +comment("NISTSchema-float",_) -> + ["%% Data type derived by restriction of float by facets",nl]; +comment("NISTSchema-gDay",_) -> + ["%% Data type derived by restriction of gDay by facets",nl]; +comment("NISTSchema-gMonth-",_) -> + ["%% Data type derived by restriction of gMonth by facets",nl]; +comment("NISTSchema-gMonthDay",_) -> + ["%% Data type derived by restriction of gMonthDay by facets",nl]; +comment("NISTSchema-gYear-",_) -> + ["%% Data type derived by restriction of gYear by facets",nl]; +comment("NISTSchema-gYearMonth",_) -> + ["%% Data type derived by restriction of gYearMonth by facets",nl]; +comment("NISTSchema-hexBinary",_) -> + ["%% Data type derived by restriction of hexBinary by facets",nl]; +comment("NISTSchema-ID",_) -> + ["%% Data type derived by restriction of ID by facets",nl]; +comment("NISTSchema-int-",_) -> + ["%% Data type derived by restriction of int by facets",nl]; +comment("NISTSchema-integer",_) -> + ["%% Data type derived by restriction of integer by facets",nl]; +comment("NISTSchema-language",_) -> + ["%% Data type derived by restriction of language by facets",nl]; +comment("NISTSchema-long",_) -> + ["%% Data type derived by restriction of long by facets",nl]; +comment("NISTSchema-Name",_) -> + ["%% Data type derived by restriction of Name by facets",nl]; +comment("NISTSchema-NCName",_) -> + ["%% Data type derived by restriction of NCName by facets",nl]; +comment("NISTSchema-negativeInteger",_) -> + ["%% Data type derived by restriction of negativeInteger by facets",nl]; +comment("NISTSchema-NMTOKEN",_) -> + ["%% Data type derived by restriction of NMTOKEN by facets",nl]; +comment("NISTSchema-nonNegativeInteger",_) -> + ["%% Data type derived by restriction of nonNegativeInteger by facets",nl]; +comment("NISTSchema-nonPositiveInteger",_) -> + ["%% Data type derived by restriction of nonPositiveInteger by facets",nl]; +comment("NISTSchema-normalizedString",_) -> + ["%% Data type derived by restriction of normalizedString by facets",nl]; +comment("NISTSchema-positiveInteger",_) -> + ["%% Data type derived by restriction of positiveInteger by facets",nl]; +comment("NISTSchema-QName",_) -> + ["%% Data type derived by restriction of QName by facets",nl]; +comment("NISTSchema-short",_) -> + ["%% Data type derived by restriction of short by facets",nl]; +comment("NISTSchema-string",_) -> + ["%% Data type derived by restriction of string by facets",nl]; +comment("NISTSchema-time",_) -> + ["%% Data type derived by restriction of time by facets",nl]; +comment("NISTSchema-token",_) -> + ["%% Data type derived by restriction of token by facets",nl]; +comment("NISTSchema-unsignedByte",_) -> + ["%% Data type derived by restriction of unsignedByte by facets",nl]; +comment("NISTSchema-unsignedInt",_) -> + ["%% Data type derived by restriction of unsignedInt by facets",nl]; +comment("NISTSchema-unsignedLong",_) -> + ["%% Data type derived by restriction of unsignedLong by facets",nl]; +comment("NISTSchema-unsignedShort",_) -> + ["%% Data type derived by restriction of unsignedShort by facets",nl]. + + +emit_schema_test(IO) -> + emit(IO,["schema_test(Config,FileName,XsdBase,Validity) ->",nl, + indent(3),"{Ok,S} = xmerl_xsd:process_schema(", + "filename:join([?config(data_dir,Config),FileName]),",nl, + indent(25), + "[{xsdbase,filename:join([?config(data_dir,Config),XsdBase])}]),",nl, + indent(3),"case Validity of",nl, + indent(6),valid ," when Ok == ok ->",nl, + indent(9),"{{filename:basename(FileName),S#xsd_state.errors == []},S};", nl, + indent(6),invalid," when Ok == error ->",nl, + indent(9), "{{filename:basename(FileName),true},S};",nl, + indent(6),notKnown," ->",nl, + indent(9),"{{filename:basename(FileName),true},S};",nl, + indent(6),"_ -> {{filename:basename(FileName),false},S}",nl, + indent(3),"end.",nl]), + emit(IO,["schema_test(Config,FileName,XsdBase,Validity,AccState) ->",nl, + indent(3),"{Ok,S2} = xmerl_xsd:process_schema(", + "filename:join([?config(data_dir,Config),FileName]),",nl, + indent(25), + "[{xsdbase,filename:join([?config(data_dir,Config),XsdBase])}, AccState]),",nl, + indent(3),"case Validity of",nl, + indent(6),valid," when Ok == ok ->",nl, + indent(9),"{{filename:basename(FileName),S2#xsd_state.errors == []},S2};", nl, + indent(6),invalid," when Ok == error ->",nl, + indent(9), "{{filename:basename(FileName),true},S2};",nl, + indent(6),notKnown," ->",nl, + indent(9),"{{filename:basename(FileName),true},S2};",nl, + indent(6),"_ -> {{filename:basename(FileName),false},S2}",nl, + indent(3),"end.",nl]). + +emit_instance_test(IO) -> + emit(IO,["instance_test(Config,FileName,XMLBase,Validity,State) ->",nl]), + emit(IO,[indent(3),"{E,_} = xmerl_scan:file(filename:join([?config(data_dir,Config),FileName]),",nl, + indent(19),"[{xmlbase,filename:join([?config(data_dir,Config),",nl, + indent(19),"XMLBase])}]),",nl]), + emit(IO,[indent(3),"{VE,S2} = xmerl_xsd:validate(E,[{state,State}]),",nl]), + emit(IO,[indent(3),"case Validity of",nl, + indent(6),"valid when is_record(VE,xmlElement) ->",nl, + indent(9),"{filename:basename(FileName),S2#xsd_state.errors == []};",nl, + indent(6),"invalid when VE == error ->",nl, + indent(9),"{filename:basename(FileName),true};",nl, + indent(6),"notKnown ->",nl, + indent(9),"{filename:basename(FileName),true};",nl, + indent(6),"_ ->",nl, + indent(9),"{filename:basename(FileName),false}",nl, + indent(3),"end.",nl]). +%% emit(IO,[indent(3),"{VE,_} = xmerl_xsd:validate(E,[{state,State}]),",nl]), +%% emit(IO,[indent(3),"{filename:basename(FileName),VE == ExpectedRetVal}."]). + +exclude_case(_Suite,[]) -> + false; +exclude_case(Suite,[#xmlAttribute{value=Name}]) -> + exlude_case(Suite,Name). + +exlude_case(msx,Case) -> + lists:member(Case,["attC002","mgS002","mgS003","mgS004","mgS005"]); +exlude_case(_,_) -> + false. -- cgit v1.2.3