megaco_codec_prev3c_test.erl

OTP是开放电信平台的简称

    d("compact_otp4920_msg4 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = ticket_compact_decode_encode_ok( compact_otp4920_msg4() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp4920_msg5(suite) ->
    [];
compact_otp4920_msg5(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg5 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = ticket_compact_decode_encode_ok( compact_otp4920_msg5() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp4920_msg6(suite) ->
    [];
compact_otp4920_msg6(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg6 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = ticket_compact_decode_encode_ok( compact_otp4920_msg6() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp4920_msg7(suite) ->
    [];
compact_otp4920_msg7(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg7 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = ticket_compact_decode_encode_ok( compact_otp4920_msg7() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp4920_msg8(suite) ->
    [];
compact_otp4920_msg8(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg8 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = ticket_compact_decode_encode_ok( compact_otp4920_msg8() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp4920_msg9(suite) ->
    [];
compact_otp4920_msg9(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg9 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = ticket_compact_decode_encode_ok( compact_otp4920_msg9() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp4920_msg10(suite) ->
    [];
compact_otp4920_msg10(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg10 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = ticket_compact_decode_encode_ok( compact_otp4920_msg10() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp4920_msg11(suite) ->
    [];
compact_otp4920_msg11(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg11 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = ticket_compact_decode_encode_ok( compact_otp4920_msg11() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp4920_msg12(suite) ->
    [];
compact_otp4920_msg12(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg12 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = ticket_compact_decode_encode_ok( compact_otp4920_msg12() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

%% Duplicate padding
compact_otp4920_msg20(suite) ->
    [];
compact_otp4920_msg20(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg20 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = compact_otp4920(compact_otp4920_msg20(), bad_mid_duplicate_padding),
    %% erase(severity),
    %% erase(dbg),
    ok.

%% Length
compact_otp4920_msg21(suite) ->
    [];
compact_otp4920_msg21(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg21 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = compact_otp4920(compact_otp4920_msg21(), bad_mid_ip6addr_length),
    %% erase(severity),
    %% erase(dbg),
    ok.

%% Length
compact_otp4920_msg22(suite) ->
    [];
compact_otp4920_msg22(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg22 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = compact_otp4920(compact_otp4920_msg22(), bad_mid_ip6addr_length),
    %% erase(severity),
    %% erase(dbg),
    ok.

%% Length
compact_otp4920_msg23(suite) ->
    [];
compact_otp4920_msg23(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg23 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = compact_otp4920(compact_otp4920_msg23(), bad_mid_ip6addr_length),
    %% erase(severity),
    %% erase(dbg),
    ok.

%% Length
compact_otp4920_msg24(suite) ->
    [];
compact_otp4920_msg24(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg24 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = compact_otp4920(compact_otp4920_msg24(), bad_mid_ip6addr_length),
    %% erase(severity),
    %% erase(dbg),
    ok.

%% Length
compact_otp4920_msg25(suite) ->
    [];
compact_otp4920_msg25(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp4920_msg25 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = compact_otp4920(compact_otp4920_msg25(), bad_mid_ip6addr_length),
    %% erase(severity),
    %% erase(dbg),
    ok.

    
compact_otp4920(Msg, ExpectedReason) ->
    compact_otp4920(Msg, ?EC, ExpectedReason).

compact_otp4920(Msg, Conf, ExpectedReason) ->
    Codec  = megaco_compact_text_encoder,
    Decode = fun(B) -> decode_message(Codec, false, Conf, B) end,
    Check  = fun(Reason) when is_list(Reason) ->
		     compact_otp4920_chk(Reason, ExpectedReason);
		(Crap) ->
		     {error, {unexpected_decode_result, Crap}}
	     end,
    megaco_codec_test_lib:expect_decode(Msg, Decode, Check).

compact_otp4920_chk(Reason, ExpectedReason) ->
    case lists:keysearch(reason, 1, Reason) of
	{value, {reason, {__Line, _Mod, ActualReason}}} ->
	    case element(1, ActualReason) of
		ExpectedReason ->
		    ok;
		_ ->
		    {error, {unexpected_decode_reason, 
			     {ActualReason, ExpectedReason}}}
	    end;
	{value, {reason, {_Mod, ActualReason}}} ->
	    case element(1, ActualReason) of
		ExpectedReason ->
		    ok;
		_ ->
		    {error, {unexpected_decode_reason, 
			     {ActualReason, ExpectedReason}}}
	    end;
	{value, UnknownReason} ->
	    {error, {unexpected_decode_reason, UnknownReason}};
	false ->
	    {error, {reason_not_found, Reason}}
    end.

compact_otp4920_msg0() ->
    M = "!/" ?VERSION_STR " [192.168.30.1]\nT=100{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

compact_otp4920_msg1() ->
    M = "!/" ?VERSION_STR " [2031:0000:130F:0000:0000:09C0:876A:130B]\nT=101{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

compact_otp4920_msg2() ->
    M = "!/" ?VERSION_STR " [2031:0:130F:0:0:9C0:876A:130B]\nT=102{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

compact_otp4920_msg3() ->
    M = "!/" ?VERSION_STR " [2031:0:130F::9C0:876A:130B]\nT=103{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

compact_otp4920_msg4() ->
    M = "!/" ?VERSION_STR " [::1]\nT=104{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

compact_otp4920_msg5() ->
    M = "!/" ?VERSION_STR " [::]\nT=105{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

compact_otp4920_msg6() ->
    M = "!/" ?VERSION_STR " [1::]\nT=106{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

compact_otp4920_msg7() ->
    M = "!/" ?VERSION_STR " [FEDC:1::]\nT=107{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

compact_otp4920_msg8() ->
    M = "!/" ?VERSION_STR " [2031:0:130F:0:0:9C0:135.106.19.11]\nT=108{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

compact_otp4920_msg9() ->
    M = "!/" ?VERSION_STR " [2031:0:130F::9C0:135.106.19.11]\nT=109{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

compact_otp4920_msg10() ->
    M = "!/" ?VERSION_STR " [::FFFF:192.168.30.1]\nT=110{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

compact_otp4920_msg11() ->
    M = "!/" ?VERSION_STR " [::192.168.30.1]\nT=111{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

compact_otp4920_msg12() ->
    M = "!/" ?VERSION_STR " [::C0A8:1E01]\nT=112{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

%% Illegal: only one :: allowed
compact_otp4920_msg20() ->
    M = "!/" ?VERSION_STR " [2031::130F::9C0]\nT=120{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

%% Illegal: length
compact_otp4920_msg21() ->
    M = "!/" ?VERSION_STR " [2031:FFEE:0000:130F:0000:0000:09C0:876A:130B]\nT=121{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

%% Illegal: length
compact_otp4920_msg22() ->
    M = "!/" ?VERSION_STR " [2031:FFEE:0:130F:0:0:9C0:135.106.19.11]\nT=122{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

%% Illegal: length
compact_otp4920_msg23() ->
    M = "!/" ?VERSION_STR " [2031:FFEE:0000:130F:2132:4354::09C0:876A:130B]\nT=123{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

%% Illegal: length
compact_otp4920_msg24() ->
    M = "!/" ?VERSION_STR " [::2031:FFEE:0000:130F:2132:4354:09C0:876A:130B]\nT=124{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.

%% Illegal: length
compact_otp4920_msg25() ->
    M = "!/" ?VERSION_STR " [2031:FFEE:0000:130F:2132:4354:09C0:876A:130B::]\nT=125{C=${A=${M{O{MO=SR,RG=OFF,RV=OFF}}}}}",
    M.


%% --------------------------------------------------------------
%% 

compact_otp5186_msg01(suite) ->
    [];
compact_otp5186_msg01(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp5186_msg01 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = ticket_compact_decode_error( compact_otp5186_msg01() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp5186_msg02(suite) ->
    [];
compact_otp5186_msg02(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp5186_msg02 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    ok = ticket_compact_decode_encode_ok( compact_otp5186_msg02() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp5186_msg03(suite) ->
    [];
compact_otp5186_msg03(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp5186_msg03 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    %% ok = compact_otp5186_msg_2(compact_otp5186_msg03(), ok, ok),
    ok = ticket_compact_encode_decode_ok( compact_otp5186_msg03() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp5186_msg04(suite) ->
    [];
compact_otp5186_msg04(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp5186_msg04 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    %% ok = compact_otp5186_msg_2(compact_otp5186_msg04(), ok, ok),
    ok = ticket_compact_encode_decode_ok( compact_otp5186_msg04() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp5186_msg05(suite) ->
    [];
compact_otp5186_msg05(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp5186_msg05 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    %% ok = compact_otp5186_msg_2(compact_otp5186_msg05(), ok, ok),
    ok = ticket_compact_encode_decode_ok( compact_otp5186_msg05() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

compact_otp5186_msg06(suite) ->
    [];
compact_otp5186_msg06(Config) when list(Config) ->
    %% put(severity,trc),
    %% put(dbg,true),
    d("compact_otp5186_msg06 -> entry", []),
    ?ACQUIRE_NODES(1, Config),
    %% ok = compact_otp5186_msg_2(compact_otp5186_msg06(), ok, ok),
    ok = ticket_compact_encode_decode_ok( compact_otp5186_msg06() ),
    %% erase(severity),
    %% erase(dbg),
    ok.

%% --
						   
compact_otp5186_msg01() ->
    "!/2 <mg5>\nP=67111298{C=2699{AV=mg5_ipeph/0x0f0001{}}}".

compact_otp5186_msg02() ->
    "!/2 <mg5>\nP=67111298{C=2699{AV=mg5_ipeph/0x0f0001}}".

compact_otp5186_msg03() ->
    {'MegacoMessage',
     asn1_NOVALUE,
     {'Message',
      2,
      {domainName,{'DomainName',"mg5",asn1_NOVALUE}},
      {transactions,
       [{transactionReply,
	 {'TransactionReply',67111298,asn1_NOVALUE,
	  {actionReplies,[
			  {'ActionReply',2699,asn1_NOVALUE,asn1_NOVALUE,
			   [
			    {auditValueReply,
			     {auditResult,
			      {'AuditResult',
			       {megaco_term_id,false,["mg5_ipeph","0x0f0001"]},
			       [
			       ]
			      }
			     }
			    }
			   ]
			  }
			 ]
	  }
	 }
	}
       ]
      }
     }
    }.

compact_otp5186_msg04() ->
    {'MegacoMessage',asn1_NOVALUE,
     {'Message',2,{domainName,{'DomainName',"mg5",asn1_NOVALUE}},
      {transactions,
       [{transactionReply,
	 {'TransactionReply',67111298,asn1_NOVALUE,
	  {actionReplies,[
			  {'ActionReply',2699,asn1_NOVALUE,asn1_NOVALUE,
			   [
			    {auditValueReply,
			     {auditResult,
			      {'AuditResult',
			       {megaco_term_id,false,["mg5_ipeph","0x0f0001"]},
			       [
				{emptyDescriptors,
				 {'AuditDescriptor',asn1_NOVALUE,asn1_NOVALUE}
				}
			       ]
			      }
			     }
			    }
			   ]
			  }
			 ]
	  }
	 }
	}
       ]
      }
     }
    }.

compact_otp5186_msg05() ->
    {'MegacoMessage',
     asn1_NOVALUE,
     {'Message',
      2,
      {domainName,{'DomainName',"mg5",asn1_NOVALUE}},
      {transactions,
       [{transactionReply,
	 {'TransactionReply',67111298,asn1_NOVALUE,
	  {actionReplies,[
			  {'ActionReply',2699,asn1_NOVALUE,asn1_NOVALUE,
			   [
			    {addReply,
			     {'AmmsReply',
			      [
			       {megaco_term_id,false,["mg5_ipeph","0x0f0001"]}
			      ],
			      [
			      ]
			     }
			    }
			   ]
			  }
			 ]
	  }
	 }
	}
       ]
      }
     }
    }.

compact_otp5186_msg06() ->
    {'MegacoMessage',asn1_NOVALUE,
     {'Message',2,{domainName,{'DomainName',"mg5",asn1_NOVALUE}},