=== source code for shell_SUITE:bs_match_bin_SUITE/1

=== Test case started with:
shell_SUITE:bs_match_bin_SUITE([{watchdog,<0.7576.6>},
                                {tc_logfile,
                                    "/home/pi/R16B03/otp-support/release/tests/test_server/ct_run.test_server@localhost.2014-01-03_17.38.00/tests.stdlib_test.logs/run.2014-01-03_17.51.25/shell_suite.bs_match_bin_suite.html"},
                                {tc_group_properties,[{name,bits}]},
                                {tc_group_path,[]},
                                {data_dir,
                                    "/home/pi/R16B03/otp-support/release/tests/stdlib_test/shell_SUITE_data/"},
                                {priv_dir,
                                    "/home/pi/R16B03/otp-support/release/tests/test_server/ct_run.test_server@localhost.2014-01-03_17.38.00/tests.stdlib_test.logs/run.2014-01-03_17.51.25/log_private/"},
                                {nodenames,[]}])

=== Current directory is "/home/pi/R16B03/otp-support/release/tests/test_server/ct_run.test_server@localhost.2014-01-03_17.38.00"

=== Started at 2014-01-03 20:20:05


*** Testing ByteSplit = fun(L, B, Pos, Fun) when Pos >= 0 -> Sz1 = Pos, Sz2 = size(B) - Pos, <> = B, B1 = list_to_binary(lists:sublist(L, 1, Pos)), B2 = list_to_binary(lists:nthtail(Pos, L)), Fun(L, B, Pos-1, Fun); (L, B, _, _Fun) -> ok end, Mkbin = fun(L) when list(L) -> list_to_binary(L) end, L = lists:seq(0, 57), B = Mkbin(L), ByteSplit(L, B, size(B), ByteSplit), Id = fun(I) -> I end, MakeUnalignedSubBinary = fun(Bin0) -> Bin1 = <<0:3,Bin0/binary,31:5>>, Sz = size(Bin0), <<0:3,Bin:Sz/binary,31:5>> = Id(Bin1), Bin end, Unaligned = MakeUnalignedSubBinary(B), ByteSplit(L, Unaligned, size(Unaligned), ByteSplit), ok. *** Testing Mkbin = fun(L) when list(L) -> list_to_binary(L) end, MakeInt = fun(List, 0, Acc, _F) -> Acc; ([H|T], N, Acc, F) -> F(T, N-1, Acc bsl 1 bor H, F) end, MakeBinFromList = fun(List, 0, _F) -> Mkbin([]); (List, N, F) -> list_to_binary([MakeInt(List, 8, 0, MakeInt), F(lists:nthtail(8, List), N-8, F)]) end, BitSplitBinary3 = fun(Action, Bin, List, Bef, Aft, F) when Bef =< Aft -> Action(Bin, List, Bef, (Aft-Bef) div 8 * 8), F(Action, Bin, List, Bef, Aft-8, F); (_, _, _, _, _, _) -> ok end, BitSplitBinary2 = fun(Action, Bin, [_|T]=List, Bef, F) -> BitSplitBinary3(Action, Bin, List, Bef, size(Bin)*8, BitSplitBinary3), F(Action, Bin, T, Bef+1, F); (Action, Bin, [], Bef, F) -> ok end, BitsToList = fun([H|T], 0, F) -> F(T, 16#80, F); ([H|_]=List, Mask, F) -> [case H band Mask of 0 -> 0; _ -> 1 end | F(List, Mask bsr 1, F)]; ([], _, _F) -> [] end, BitSplitBinary1 = fun(Action, Bin) -> BitList = BitsToList(binary_to_list(Bin), 16#80, BitsToList), BitSplitBinary2(Action, Bin, BitList, 0, BitSplitBinary2) end, Fun = fun(Bin, List, SkipBef, N) -> SkipAft = 8*size(Bin) - N - SkipBef, <> = Bin, OutBin = MakeBinFromList(List, N, MakeBinFromList) end, BitSplitBinary1(Fun, erlang:md5(<<1,2,3>>)), Id = fun(I) -> I end, MakeUnalignedSubBinary = fun(Bin0) -> Bin1 = <<0:3,Bin0/binary,31:5>>, Sz = size(Bin0), <<0:3,Bin:Sz/binary,31:5>> = Id(Bin1), Bin end, BitSplitBinary1(Fun, MakeUnalignedSubBinary(erlang:md5(<<1,2,3>>))), ok. === Ended at 2014-01-03 20:20:59 === successfully completed test case === returned value = ok


Test run history | Top level test index