Server IP : 85.214.239.14 / Your IP : 18.116.88.132 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /usr/share/augeas/lenses/dist/tests/ |
Upload File : |
(* Module: Test_IniFile Provides unit tests and examples for the <IniFile> module. About: Tests to run The tests are run with all combinations of the following three parameters: > separator : (a) default (/[:=]/ "=") ; (b) "=" "=" > comment : (c) default (/[;#]/ ";") ; (d) ";" ";" > empty lines : (e) default ; (f) noempty *) module Test_IniFile = (* ALL TESTS TO RUN *) (* Group: TEST a/c/e *) (* Variable: comment_ace *) let comment_ace = IniFile.comment IniFile.comment_re IniFile.comment_default (* Variable: sep_ace *) let sep_ace = IniFile.sep IniFile.sep_re IniFile.sep_default (* Variable: entry_ace *) let entry_ace = IniFile.entry IniFile.entry_re sep_ace comment_ace (* Variable: title_ace *) let title_ace = IniFile.title IniFile.record_re (* Variable: record_ace *) let record_ace = IniFile.record title_ace entry_ace (* Variable: lns_ace *) let lns_ace = IniFile.lns record_ace comment_ace (* Variable: conf_ace *) let conf_ace = "# comment with sharp [section1] test_ace = value # end of line comment test_ace = test_ace = \"value with spaces\" ; comment with colon " (* Test: lns_ace Testing the a/c/e combination *) test lns_ace get conf_ace = { "#comment" = "comment with sharp" } {} { "section1" { "test_ace" = "value" { "#comment" = "end of line comment" } } { "test_ace" } { "test_ace" = "value with spaces" } { "#comment" = "comment with colon" } {} } test lns_ace put conf_ace after set "section1/foo" "yes" = "# comment with sharp [section1] test_ace = value # end of line comment test_ace = test_ace = \"value with spaces\" ; comment with colon foo=yes " (* Test: lns_ace Quotes can appear within bare values *) test lns_ace get "[section]\ntest_ace = value \"with quotes\" inside\n" = { "section" { "test_ace" = "value \"with quotes\" inside" } } (* Group: TEST a/c/f *) (* Variable: comment_acf *) let comment_acf = IniFile.comment IniFile.comment_re IniFile.comment_default (* Variable: sep_acf *) let sep_acf = IniFile.sep IniFile.sep_re IniFile.sep_default (* Variable: entry_acf *) let entry_acf = IniFile.entry IniFile.entry_re sep_acf comment_acf (* Variable: title_acf *) let title_acf = IniFile.title IniFile.record_re (* Variable: record_acf *) let record_acf = IniFile.record_noempty title_acf entry_acf (* Variable: lns_acf *) let lns_acf = IniFile.lns_noempty record_acf comment_acf (* Variable: conf_acf *) let conf_acf = "# comment with sharp [section1] test_acf = value test_acf = test_acf : value2 # end of line comment ; comment with colon " (* Test: lns_acf Testing the a/c/f combination *) test lns_acf get conf_acf = { "#comment" = "comment with sharp" } { "section1" { "test_acf" = "value" } { "test_acf" } { "test_acf" = "value2" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } } (* Group: TEST a/d/e *) (* Variable: comment_ade *) let comment_ade = IniFile.comment ";" ";" (* Variable: sep_ade *) let sep_ade = IniFile.sep IniFile.sep_re IniFile.sep_default (* Variable: entry_ade *) let entry_ade = IniFile.entry IniFile.entry_re sep_ade comment_ade (* Variable: title_ade *) let title_ade = IniFile.title IniFile.record_re (* Variable: record_ade *) let record_ade = IniFile.record title_ade entry_ade (* Variable: lns_ade *) let lns_ade = IniFile.lns record_ade comment_ade (* Variable: conf_ade *) let conf_ade = "; a first comment with colon [section1] test_ade = value test_ade : value2 ; end of line comment ; comment with colon test_ade = " (* Test: lns_ade Testing the a/d/e combination *) test lns_ade get conf_ade = { "#comment" = "a first comment with colon" } { "section1" { "test_ade" = "value" } { "test_ade" = "value2" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } {} { "test_ade" } } (* Group: TEST a/d/f *) (* Variable: comment_adf *) let comment_adf = IniFile.comment ";" ";" (* Variable: sep_adf *) let sep_adf = IniFile.sep IniFile.sep_re IniFile.sep_default (* Variable: entry_adf *) let entry_adf = IniFile.entry IniFile.entry_re sep_adf comment_adf (* Variable: title_adf *) let title_adf = IniFile.title IniFile.record_re (* Variable: record_adf *) let record_adf = IniFile.record_noempty title_adf entry_adf (* Variable: lns_adf *) let lns_adf = IniFile.lns_noempty record_adf comment_adf (* Variable: conf_adf *) let conf_adf = "; a first comment with colon [section1] test_adf = value test_adf : value2 ; end of line comment ; comment with colon test_adf = " (* Test: lns_adf Testing the a/d/f combination *) test lns_adf get conf_adf = { "#comment" = "a first comment with colon" } { "section1" { "test_adf" = "value" } { "test_adf" = "value2" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } { "test_adf" } } (* Group: TEST b/c/e *) (* Variable: comment_bce *) let comment_bce = IniFile.comment IniFile.comment_re IniFile.comment_default (* Variable: sep_bce *) let sep_bce = IniFile.sep "=" "=" (* Variable: entry_bce *) let entry_bce = IniFile.entry IniFile.entry_re sep_bce comment_bce (* Variable: title_bce *) let title_bce = IniFile.title IniFile.record_re (* Variable: record_bce *) let record_bce = IniFile.record title_bce entry_bce (* Variable: lns_bce *) let lns_bce = IniFile.lns record_bce comment_bce (* Variable: conf_bce *) let conf_bce = "# comment with sharp [section1] test_bce = value # end of line comment ; comment with colon test_bce = " (* Test: lns_bce Testing the b/c/e combination *) test lns_bce get conf_bce = { "#comment" = "comment with sharp" } {} { "section1" { "test_bce" = "value" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } {} { "test_bce" } } (* Group: TEST b/c/f *) (* Variable: comment_bcf *) let comment_bcf = IniFile.comment IniFile.comment_re IniFile.comment_default (* Variable: sep_bcf *) let sep_bcf = IniFile.sep "=" "=" (* Variable: entry_bcf *) let entry_bcf = IniFile.entry IniFile.entry_re sep_bcf comment_bcf (* Variable: title_bcf *) let title_bcf = IniFile.title IniFile.record_re (* Variable: record_bcf *) let record_bcf = IniFile.record_noempty title_bce entry_bcf (* Variable: lns_bcf *) let lns_bcf = IniFile.lns_noempty record_bce comment_bcf (* Variable: conf_bcf *) let conf_bcf = "# conf with sharp [section1] test_bcf = value # end of line comment ; comment with colon test_bcf = " (* Test: lns_bcf Testing the b/c/f combination *) test lns_bcf get conf_bcf = { "#comment" = "conf with sharp" } { "section1" { "test_bcf" = "value" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } { "test_bcf" } } (* Group: TEST b/d/e *) (* Variable: comment_bde *) let comment_bde = IniFile.comment ";" ";" (* Variable: sep_bde *) let sep_bde = IniFile.sep "=" "=" (* Variable: entry_bde *) let entry_bde = IniFile.entry IniFile.entry_re sep_bde comment_bde (* Variable: title_bde *) let title_bde = IniFile.title IniFile.record_re (* Variable: record_bde *) let record_bde = IniFile.record title_bde entry_bde (* Variable: lns_bde *) let lns_bde = IniFile.lns record_bde comment_bde (* Variable: conf_bde *) let conf_bde = "; first comment with colon [section1] test_bde = value ; end of line comment ; comment with colon test_bde = " (* Test: lns_bde Testing the b/d/e combination *) test lns_bde get conf_bde = { "#comment" = "first comment with colon" } {} { "section1" { "test_bde" = "value" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } {} { "test_bde" } } (* Group: TEST b/d/f *) (* Variable: comment_bdf *) let comment_bdf = IniFile.comment ";" ";" (* Variable: sep_bdf *) let sep_bdf = IniFile.sep "=" "=" (* Variable: entry_bdf *) let entry_bdf = IniFile.entry IniFile.entry_re sep_bdf comment_bdf (* Variable: title_bdf *) let title_bdf = IniFile.title IniFile.record_re (* Variable: record_bdf *) let record_bdf = IniFile.record_noempty title_bdf entry_bdf (* Variable: lns_bdf *) let lns_bdf = IniFile.lns_noempty record_bdf comment_bdf (* Variable: conf_bdf *) let conf_bdf = "; first comment with colon [section1] test_bdf = value ; end of line comment ; comment with colon test_bdf = " (* Test: lns_bdf Testing the b/d/f combination *) test lns_bdf get conf_bdf = { "#comment" = "first comment with colon" } { "section1" { "test_bdf" = "value" { "#comment" = "end of line comment" } } { "#comment" = "comment with colon" } { "test_bdf" } } (* Group: TEST multiline values *) (* Variable: multiline_test *) let multiline_test = "test_ace = val1\n val2\n val3\n" (* Variable: multiline_nl *) let multiline_nl = "test_ace =\n val2\n val3\n" (* Variable: multiline_ace *) let multiline_ace = IniFile.entry_multiline IniFile.entry_re sep_ace comment_ace (* Test: multiline_ace Testing the a/c/e combination with a multiline entry *) test multiline_ace get multiline_test = { "test_ace" = "val1\n val2\n val3" } (* Test: multiline_nl Multiline values can begin with a single newline *) test multiline_ace get multiline_nl = { "test_ace" = "\n val2\n val3" } (* Test: lns_ace Ticket #243 *) test lns_ace get "[section1] ticket_243 = \"value1;value2#value3\" # end of line comment " = { "section1" { "ticket_243" = "value1;value2#value3" { "#comment" = "end of line comment" } } } (* Group: TEST list entries *) (* Variable: list_test *) let list_test = "test_ace = val1,val2,val3 # a comment\n" (* Lens: list_ace *) let list_ace = IniFile.entry_list IniFile.entry_re sep_ace RX.word Sep.comma comment_ace (* Test: list_ace Testing the a/c/e combination with a list entry *) test list_ace get list_test = { "test_ace" { "1" = "val1" } { "2" = "val2" } { "3" = "val3" } { "#comment" = "a comment" } } (* Variable: list_nocomment_test *) let list_nocomment_test = "test_ace = val1,val2,val3 \n" (* Lens: list_nocomment_ace *) let list_nocomment_ace = IniFile.entry_list_nocomment IniFile.entry_re sep_ace RX.word Sep.comma (* Test: list_nocomment_ace Testing the a/c/e combination with a list entry without end-of-line comment *) test list_nocomment_ace get list_nocomment_test = { "test_ace" { "1" = "val1" } { "2" = "val2" } { "3" = "val3" } } (* Test: IniFile.lns_loose *) test IniFile.lns_loose get conf_ace = { "section" = ".anon" { "#comment" = "comment with sharp" } { } } { "section" = "section1" { "test_ace" = "value" { "#comment" = "end of line comment" } } { "test_ace" } { "test_ace" = "value with spaces" } { "#comment" = "comment with colon" } { } } (* Test: IniFile.lns_loose_multiline *) test IniFile.lns_loose_multiline get conf_ace = { "section" = ".anon" { "#comment" = "comment with sharp" } { } } { "section" = "section1" { "test_ace" = "value" { "#comment" = "end of line comment" } } { "test_ace" } { "test_ace" = "value with spaces" } { "#comment" = "comment with colon" } { } } test IniFile.lns_loose_multiline get multiline_test = { "section" = ".anon" { "test_ace" = "val1\n val2\n val3" } }