Packages

swab

1.0.4
1.0.4

General purpose buffer handling module.

HexDocs

Current section

Files

Jump to
Readme
1 Version
0 Dependencies
Dependants
Files
Activity
swab src swab_tests.erl
Raw

src/swab_tests.erl 

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

%%% File:      swab_tests.erl

%%% @author    Eric Pailleau <swab@crownedgrouse.com>

%%% @copyright 2014 crownedgrouse.com

%%% @doc  

%%% General purpose buffer handling - Unit tests

%%% @end  

%%%

%%% Permission to use, copy, modify, and/or distribute this software

%%% for any purpose with or without fee is hereby granted, provided

%%% that the above copyright notice and this permission notice appear

%%% in all copies.

%%%

%%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL

%%% WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED

%%% WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE

%%% AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR

%%% CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM

%%% LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,

%%% NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN

%%% CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

%%%

%%% Created : 2014-07-14

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

-module(swab_tests).

-include_lib("eunit/include/eunit.hrl").



-define(NL, io_lib:nl()).



-ifdef(EUNIT).



analyze_test() -> 

		   % cast

		    ?assertEqual({ok, "   I LOVE ERLANG   "}, swab:sync([{cast, upper}], "   I love Erlang   "))

		   ,?assertEqual({ok, "   I LOVE ERLANG   "}, swab:sync({cast, upper}, "   I love Erlang   "))

		   ,?assertEqual({ok, "   i love erlang   "}, swab:sync([{cast, lower}], "   I love Erlang   "))

		   ,?assertEqual({ok, "   i love erlang   "}, swab:sync({cast, lower}, "   I love Erlang   "))

           % trim

		   ,?assertEqual({ok, "I love Erlang !"}, swab:sync({trim, both },"   I love Erlang !   "))

		   ,?assertEqual({ok, "I love Erlang !   "}, swab:sync({trim, left },"   I love Erlang !   "))

		   ,?assertEqual({ok, "   I love Erlang !"}, swab:sync({trim, right },"   I love Erlang !   "))

		   ,?assertEqual({ok, []}, swab:sync({trim, {both, $.} },"................."))

           % feed

           ,?assertEqual({ok,"abc       \nadcdefghij\n12345678  \n987654321 "},swab:sync({feed,10}, "abc\nadcdefghij\n12345678\n987654321"))

           ,?assertEqual({ok,"abc*******\nadcdefghij\n12345678**\n987654321*"},swab:sync({feed, {10, $*}}, "abc\nadcdefghij\n12345678\n987654321"))

           ,?assertEqual({ok,"*******abc\nadcdefghij\n**12345678\n*987654321"},swab:sync({feed, {-10, $*}}, "abc\nadcdefghij\n12345678\n987654321"))

           % fold

           ,?assertEqual({ok,"1234567890\n123456789a\nbcdefghijk\nl"},swab:sync({fold, 10}, "1234567890123456789abcdefghijkl"))

           ,?assertEqual({ok,"1234567\n89\n0123456789\nabc\ndefghi\njkl"},swab:sync({fold, 10}, "1234567\n890123456789abc\ndefghijkl"))

		   % sort

		   ,?assertEqual({ok, "aaa\nbbb\nccc\nddd"}, swab:sync([{sort, normal}], "aaa\nccc\nbbb\nddd\n"))

		   ,?assertEqual({ok, "aaa\nbbb\nccc\nddd"}, swab:sync({sort, normal}, "aaa\nccc\nbbb\nddd\n"))

		   ,?assertEqual({ok, "ddd\nccc\nbbb\naaa"}, swab:sync([{sort, reverse}], "aaa\nccc\nbbb\nddd\n"))

		   ,?assertEqual({ok, "ddd\nccc\nbbb\naaa"}, swab:sync({sort, reverse}, "aaa\nccc\nbbb\nddd\n"))

		   ,?assertEqual({ok, "ddd\nbbb\nccc\naaa"}, swab:sync([{sort, inverse}], "aaa\nccc\nbbb\nddd\n"))

		   ,?assertEqual({ok, "ddd\nbbb\nccc\naaa"}, swab:sync({sort, inverse}, "aaa\nccc\nbbb\nddd\n"))

		   % decode

		   ,{ok, EBCDIC} = file:read_file(filename:join([code:priv_dir(swab), "ebcdic.seq"]))

		   ,?assertEqual( {ok, lists:seq(1,255)}, swab:sync([{decode, ebcdic}], binary_to_list(EBCDIC)))

		   ,?assertEqual( {ok, lists:seq(1,255)}, swab:sync({decode, ebcdic}, binary_to_list(EBCDIC)))

		   % encode

		   ,?assertEqual( {ok, binary_to_list(EBCDIC)}, swab:sync([{encode, ebcdic}], lists:seq(1,255)))

		   ,?assertEqual( {ok, binary_to_list(EBCDIC)}, swab:sync({encode, ebcdic}, lists:seq(1,255)))

		   % convert

		   ,?assertEqual({ok, "abcdefg"}, swab:sync([{convert, nonl}], "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   ,?assertEqual({ok, "abcdefg"}, swab:sync({convert, nonl}, "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   ,?assertEqual({ok, "a"++?NL++"b"++?NL++"c"++?NL++"d"++?NL++"e"++?NL++"f"++?NL++"g"}, 

			swab:sync([{convert, local_nl}], "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   ,?assertEqual({ok, "a"++?NL++"b"++?NL++"c"++?NL++"d"++?NL++"e"++?NL++"f"++?NL++"g"}, 

			swab:sync({convert, local_nl}, "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   % sub_word

		   ,?assertEqual({ok, "love"}, swab:sync([{sub_word, 2}], "   I love Erlang   "))

		   ,?assertEqual({ok, "love"}, swab:sync({sub_word, 2}, "   I love Erlang   "))

		   ,?assertEqual({ok, "love"}, swab:sync([{sub_word, 2}], "   I\n love Erlang   "))

		   ,?assertEqual({ok, "love"}, swab:sync({sub_word, 2}, "   I\n love Erlang   "))

		   % jump

		   ,?assertEqual({ok, "d"++?NL++"e"++?NL++"f"++?NL++"g"}, swab:sync([{jump, 3}], "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   ,?assertEqual({ok, "d"++?NL++"e"++?NL++"f"++?NL++"g"}, swab:sync({jump, 3}, "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   ,?assertEqual({ok, "a"++?NL++"b"++?NL++"c"++?NL++"d"++?NL++"e"++?NL++"f"++?NL++"g"}, 

			swab:sync([{jump, 0}], "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   ,?assertEqual({ok, "a"++?NL++"b"++?NL++"c"++?NL++"d"++?NL++"e"++?NL++"f"++?NL++"g"}, 

			swab:sync({jump, 0}, "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   ,?assertEqual({ok, "f"++?NL++"g"}, swab:sync([{jump, -2}], "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   ,?assertEqual({ok, "f"++?NL++"g"}, swab:sync({jump, -2}, "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   % nblines

		   ,?assertEqual({ok, "a"}, swab:sync([{nblines, first}], "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   ,?assertEqual({ok, "a"}, swab:sync({nblines, first}, "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   ,?assertEqual({ok, "g"}, swab:sync([{nblines, last}], "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   ,?assertEqual({ok, "g"}, swab:sync({nblines, last}, "a\r\nb\nc\rd\fe\x85f\x0bg"))

		   ,?assertEqual({ok, "123" }, swab:sync([{nblines, 1}], "123" ++ ?NL ++ "456" ++ ?NL ++ "789"))

		   ,?assertEqual({ok, "123" }, swab:sync({nblines, 1}, "123" ++ ?NL ++ "456" ++ ?NL ++ "789"))

		   ,?assertEqual({ok, "123" ++ ?NL ++ "456"}, swab:sync([{nblines, 2}], "123" ++ ?NL ++ "456" ++ ?NL ++ "789"))

		   ,?assertEqual({ok, "123" ++ ?NL ++ "456"}, swab:sync({nblines, 2}, "123" ++ ?NL ++ "456" ++ ?NL ++ "789"))

		   ,?assertEqual({ok, "789"}, swab:sync([{nblines, -1}], "123" ++ ?NL ++ "456" ++ ?NL ++ "789"))

		   ,?assertEqual({ok, "789"}, swab:sync({nblines, -1}, "123" ++ ?NL ++ "456" ++ ?NL ++ "789"))

		   ,?assertEqual({ok, "456" ++ ?NL ++ "789"}, swab:sync([{nblines, -2}], "123" ++ ?NL ++ "456" ++ ?NL ++ "789"))

		   ,?assertEqual({ok, "456" ++ ?NL ++ "789"}, swab:sync({nblines, -2}, "123" ++ ?NL ++ "456" ++ ?NL ++ "789"))

           % grab

           ,?assertEqual({ok,"abc"},swab:sync({grab, "^(...)"},"abcdefg"))

           ,?assertEqual({ok,"abcf"},swab:sync({grab, "^(...)..(.)"},"abcdefg"))

           %*** MATCH ***

           % equal

           ,?assertEqual({match, {equal, <<"abcdef">>}, <<"abcdef">>},swab:sync({equal, <<"abcdef">>},<<"abcdef">>))

           ,?assertEqual({match, {equal, "abcdef"}, "abcdef"},swab:sync({equal, "abcdef"},"abcdef"))

           % fread

           ,?assertEqual({match, {fread, "~f~f~f"},"1.9 35.5e3 15.0"},swab:sync({fread, "~f~f~f"},"1.9 35.5e3 15.0"))

           ,?assertEqual({match, {fread, "~10f~d"},"     5.67899"},swab:sync({fread, "~10f~d"},"     5.67899"))

           ,?assertEqual({match, {fread, ":~10s:~10c:"},":   alan   :   joe    :"},swab:sync({fread, ":~10s:~10c:"},":   alan   :   joe    :"))

           % regexp

           ,?assertEqual({match, {regexp, {"^[A-Z]",[]}},"ABCDEFG"},swab:sync([{cast, upper}, {regexp, "^[A-Z]"}, {cast, lower}], "abcdefg"))

           ,ok.



-endif.