+3 -1

test/dune

reviewed

··· 2 2 (deps %{bin:publicsuffix})) 3 3 4 4 (executable 5 5 - (name test_psl) 5 5 + (name psl_cli) 6 6 + (modules psl_cli) 6 7 (libraries publicsuffix)) 7 8 8 9 (test 9 10 (name test_publicsuffix) 11 11 + (modules test_publicsuffix) 10 12 (libraries publicsuffix alcotest))

+6 -6

test/test_psl.ml test/psl_cli.ml

reviewed

··· 3 3 SPDX-License-Identifier: ISC 4 4 ---------------------------------------------------------------------------*) 5 5 6 6 - (* psl_test.ml - Command-line tool for testing the Public Suffix List library 6 6 + (* psl_cli.ml - Command-line tool for testing the Public Suffix List library 7 7 8 8 Usage: 9 9 - psl_test registrable <domain> 10 10 - psl_test suffix <domain> 11 11 - psl_test is_suffix <domain> 12 12 - psl_test is_registrable <domain> 9 9 + psl_cli registrable <domain> 10 10 + psl_cli suffix <domain> 11 11 + psl_cli is_suffix <domain> 12 12 + psl_cli is_registrable <domain> 13 13 14 14 This tool is used by the cram tests to verify correct behavior. 15 15 *) ··· 34 34 35 35 let () = 36 36 if Array.length Sys.argv < 2 then begin 37 37 - print_endline "Usage: psl_test <command> [args...]"; 37 37 + print_endline "Usage: psl_cli <command> [args...]"; 38 38 print_endline "Commands:"; 39 39 print_endline " registrable <domain> - Get registrable domain"; 40 40 print_endline " suffix <domain> - Get public suffix";