Test output for string-utils [ok]

Testing time: 5s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1
*** csi ***

-- testing String Utils ------------------------------------------------------

    -- testing Unicode -------------------------------------------------------
    (ascii-codepoint? #\a) ........................................... [ PASS]
    (unicode-string #\a #\b #\c) ..................................... [ PASS]
    (string->hex (unicode-char->string #\x3bb)) ...................... [ PASS]
    (string->hex (unicode-string #\x3bb #\x3bb #\x3bb)) .............. [ PASS]
    (string->hex (unicode-make-string 2 #\x3bb)) ..................... [ PASS]
    5 tests completed in 1/1000 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing Unicode --------------------------------------------------


    -- testing Memoized ------------------------------------------------------
    (make-string+ 1 #\a) ............................................. [ PASS]
    a5 ............................................................... [ PASS]
    spc5 ............................................................. [ PASS]
    (eq? a5 (make-string+ 5 #\a)) .................................... [ PASS]
    (eq? spc5 (make-string+ 5 #\space)) .............................. [ PASS]
    (string+ #\我 #\你) ............................................ [ PASS]
    (eq? tststr1 (string+ #\x6211 #\x4f60)) .......................... [ PASS]
    (eq? tststr2 (global-string tststr2)) ............................ [ PASS]
    8 tests completed in 1/1000 seconds.
    8 out of 8 (100%) tests passed.
    -- done testing Memoized -------------------------------------------------


    -- testing To Hex --------------------------------------------------------
    t ................................................................ [ PASS]
    t ................................................................ [ PASS]
    t ................................................................ [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing To Hex ---------------------------------------------------


    -- testing String -> Hex -------------------------------------------------
    (string->hex "12abc34" 2 5) ...................................... [ PASS]
    (string->hex "ABCDEF") ........................................... [ PASS]
    (string->hex "ABCDEF" 1) ......................................... [ PASS]
    (string->hex "ABCDEF" 1 3) ....................................... [ PASS]
    4 tests completed in 1/1000 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing String -> Hex --------------------------------------------


    -- testing Hex -> String -------------------------------------------------
    (hex->string "616263") ........................................... [ PASS]
    (hex->string "414243444546") ..................................... [ PASS]
    (hex->string "4243444546") ....................................... [ PASS]
    (hex->string "4243") ............................................. [ PASS]
    (hex->string "6a6B4c5D") ......................................... [ PASS]
    (hex->string "424") .............................................. [ PASS]
    6 tests completed in 0 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing Hex -> String --------------------------------------------


    -- testing String Interpolation ------------------------------------------
    (string-interpolate "foo #(+ 1 2) bar") .......................... [ PASS]
    (string-interpolate "foo #(+ 1 2) bar" #:eval-env (scheme-repor...  [ PASS]
    (string-interpolate "foo ${(+ 1 2)} bar" #:eval-tag #\$) ......... [ PASS]
    (string-interpolate "foo $(+ 1 2) bar" #:eval-tag #\$ #:eval-en...  [ PASS]
    4 tests completed in 1/1000 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing String Interpolation -------------------------------------


    -- testing String Interpolation (UTF-8) ----------------------------------
    (utf8::string-interpolate "听说上海的 #(+ 1 2) 东西很贵")  [ PASS]
    (utf8::string-interpolate "听说上海的 #(+ 1 2) 东西很...  [ PASS]
    (utf8::string-interpolate "听说上海的 ${(+ 1 2)} 东西很...  [ PASS]
    (utf8::string-interpolate "听说上海的 $(+ 1 2) 东西很...  [ PASS]
    4 tests completed in 1/500 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing String Interpolation (UTF-8) -----------------------------


    -- testing String Interpolation SYNTAX -----------------------------------
    (list (call-with-input-string "#\"foo #{(+ 1 2)} bar\"" read)) ... [ PASS]
    (list (call-with-input-string "#\"foo ${(+ 1 2)} bar\"" read)) ... [ PASS]
    2 tests completed in 3/1000 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing String Interpolation SYNTAX ------------------------------


    -- testing string-utils --------------------------------------------------
    (string-fixed-length "abcde" 1 #:trailing "foo") ................. [ PASS]
    (string-fixed-length "abcde" 4) .................................. [ PASS]
    (string-fixed-length "abc" 4) .................................... [ PASS]
    (string-longest-common-prefix "foobarbaz" strs) .................. [ PASS]
    (string-longest-common-prefixes strs) ............................ [ PASS]
    5 tests completed in 1/1000 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing string-utils ---------------------------------------------

9 subgroups completed in 137/1000 seconds.
9 out of 9 (100%) subgroups passed.
-- done testing String Utils -------------------------------------------------


*** csc "-inline-global -specialize -optimize-leaf-routines -clustering -lfa2 -local -inline -no-trace -no-lambda-info -unsafe" ***

-- testing String Utils ------------------------------------------------------

    -- testing Unicode -------------------------------------------------------
    (ascii-codepoint? #\a) ........................................... [ PASS]
    (unicode-string #\a #\b #\c) ..................................... [ PASS]
    (string->hex (unicode-char->string #\x3bb)) ...................... [ PASS]
    (string->hex (unicode-string #\x3bb #\x3bb #\x3bb)) .............. [ PASS]
    (string->hex (unicode-make-string 2 #\x3bb)) ..................... [ PASS]
    5 tests completed in 1/1000 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing Unicode --------------------------------------------------


    -- testing Memoized ------------------------------------------------------
    (make-string+ 1 #\a) ............................................. [ PASS]
    a5 ............................................................... [ PASS]
    spc5 ............................................................. [ PASS]
    (eq? a5 (make-string+ 5 #\a)) .................................... [ PASS]
    (eq? spc5 (make-string+ 5 #\space)) .............................. [ PASS]
    (string+ #\我 #\你) ............................................ [ PASS]
    (eq? tststr1 (string+ #\x6211 #\x4f60)) .......................... [ PASS]
    (eq? tststr2 (global-string tststr2)) ............................ [ PASS]
    8 tests completed in 1/1000 seconds.
    8 out of 8 (100%) tests passed.
    -- done testing Memoized -------------------------------------------------


    -- testing To Hex --------------------------------------------------------
    t ................................................................ [ PASS]
    t ................................................................ [ PASS]
    t ................................................................ [ PASS]
    3 tests completed in 0 seconds.
    3 out of 3 (100%) tests passed.
    -- done testing To Hex ---------------------------------------------------


    -- testing String -> Hex -------------------------------------------------
    (string->hex "12abc34" 2 5) ...................................... [ PASS]
    (string->hex "ABCDEF") ........................................... [ PASS]
    (string->hex "ABCDEF" 1) ......................................... [ PASS]
    (string->hex "ABCDEF" 1 3) ....................................... [ PASS]
    4 tests completed in 1/1000 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing String -> Hex --------------------------------------------


    -- testing Hex -> String -------------------------------------------------
    (hex->string "616263") ........................................... [ PASS]
    (hex->string "414243444546") ..................................... [ PASS]
    (hex->string "4243444546") ....................................... [ PASS]
    (hex->string "4243") ............................................. [ PASS]
    (hex->string "6a6B4c5D") ......................................... [ PASS]
    (hex->string "424") .............................................. [ PASS]
    6 tests completed in 0 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing Hex -> String --------------------------------------------


    -- testing String Interpolation ------------------------------------------
    (string-interpolate "foo #(+ 1 2) bar") .......................... [ PASS]
    (string-interpolate "foo #(+ 1 2) bar" #:eval-env (scheme-repor...  [ PASS]
    (string-interpolate "foo ${(+ 1 2)} bar" #:eval-tag #\$) ......... [ PASS]
    (string-interpolate "foo $(+ 1 2) bar" #:eval-tag #\$ #:eval-en...  [ PASS]
    4 tests completed in 1/500 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing String Interpolation -------------------------------------


    -- testing String Interpolation (UTF-8) ----------------------------------
    (utf8::string-interpolate "听说上海的 #(+ 1 2) 东西很贵")  [ PASS]
    (utf8::string-interpolate "听说上海的 #(+ 1 2) 东西很...  [ PASS]
    (utf8::string-interpolate "听说上海的 ${(+ 1 2)} 东西很...  [ PASS]
    (utf8::string-interpolate "听说上海的 $(+ 1 2) 东西很...  [ PASS]
    4 tests completed in 1/1000 seconds.
    4 out of 4 (100%) tests passed.
    -- done testing String Interpolation (UTF-8) -----------------------------


    -- testing String Interpolation SYNTAX -----------------------------------
    (list (call-with-input-string "#\"foo #{(+ 1 2)} bar\"" read)) ... [ PASS]
    (list (call-with-input-string "#\"foo ${(+ 1 2)} bar\"" read)) ... [ PASS]
    2 tests completed in 0 seconds.
    2 out of 2 (100%) tests passed.
    -- done testing String Interpolation SYNTAX ------------------------------


    -- testing string-utils --------------------------------------------------
    (string-fixed-length "abcde" 1 #:trailing "foo") ................. [ PASS]
    (string-fixed-length "abcde" 4) .................................. [ PASS]
    (string-fixed-length "abc" 4) .................................... [ PASS]
    (string-longest-common-prefix "foobarbaz" strs) .................. [ PASS]
    (string-longest-common-prefixes strs) ............................ [ PASS]
    5 tests completed in 1/1000 seconds.
    5 out of 5 (100%) tests passed.
    -- done testing string-utils ---------------------------------------------

9 subgroups completed in 31/500 seconds.
9 out of 9 (100%) subgroups passed.
-- done testing String Utils -------------------------------------------------