pman/tests/parser

#!/usr/bin/env sh
exec guile -L . -s "$0" "$@"
!#
(use-modules (potato parse-lib)
             ;; (potato parse)
             (ice-9 receive)
             (srfi srfi-1)
             (srfi srfi-64))

(test-begin "string-count-backslashes-at-end")

(test-equal "count backslashes at end of empty string"
  0
  (string-count-backslashes-at-end ""))

(test-equal "terminal backslash"
  1
  (string-count-backslashes-at-end (string #\\)))

(test-equal "two terminal backslashes"
  2
  (string-count-backslashes-at-end (string #\\ #\\)))

(test-equal "char plus terminal backslash"
  1
  (string-count-backslashes-at-end (string #\A #\\)))

(test-equal "char plus two terminal backslashes"
  2
  (string-count-backslashes-at-end (string #\A #\\ #\\)))

(test-equal "initial backslash plus char"
  0
  (string-count-backslashes-at-end (string #\\ #\A)))

(test-equal "two initial backslashes plus char"
  0
  (string-count-backslashes-at-end (string #\\ #\\ #\A)))

(test-end "string-count-backslashes-at-end")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(test-begin "string-find-char-unquote")

(test-equal "empty string"
  #f
  (string-find-char-unquote "" #\x))

(test-equal "one character string match"
  0
  (string-find-char-unquote "a" #\a))

(test-equal "one character string no match"
  #f
  (string-find-char-unquote "a" #\b))

(test-equal "two character string match"
  1
  (string-find-char-unquote "ab" #\b))

(test-equal "two character string no match"
  #f
  (string-find-char-unquote "ab" #\c))

(test-equal "two character string quoted"
  #f
  (string-find-char-unquote "a\\b" #\b))

(test-equal "three character string match"
  2
  (string-find-char-unquote "abc" #\c))

(test-equal "three character string no match"
  #f
  (string-find-char-unquote "abc" #\d))

(test-equal "three character string quoted"
  #f
  (string-find-char-unquote "ab\\c" #\c))

(test-equal "three character string double-quoted"
  3
  (string-find-char-unquote "ab\\\\c" #\c))

(test-assert "single backslashes are elided in output string"
  (receive (n str)
      (string-find-char-unquote "ab\\cc" #\c)
    (string=? str "abcc")))

(test-assert "double-backslashes are halved in output string"
  (receive (n str)
      (string-find-char-unquote "ab\\\\c" #\c)
    (string=? str "ab\\c")))

(test-assert "three backslashes become one backslash in output string"
  (receive (n str)
      (string-find-char-unquote "ab\\\\\\cc" #\c)
    (string=? str "ab\\cc")))

(test-equal "find first of two stop chars"
  1
  (string-find-char-unquote " A B" #\A #\B))

(test-equal "find second of two stop chars"
  1
  (string-find-char-unquote " B A" #\A #\B))

(test-equal "stop at whitespace when flag set"
  0
  (string-find-char-unquote " A" #\A #:blank #t))

(test-equal "skip quoted variables whitespace when flag is set"
  4
  (string-find-char-unquote "${A}A" #\A #:ignorevars #t))

(test-end "string-find-char-unquote")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(test-begin "string-remove-comments")

(test-equal "uncommented lines pass through"
  "abc"
  (string-remove-comments "abc"))

(test-equal "remove comments at beginning of line"
  ""
  (string-remove-comments "#abc"))

(test-equal "remove comments at end of line"
  "abc"
  (string-remove-comments "abc#"))

(test-equal "remove comments in the middle of a line"
  "ab"
  (string-remove-comments "ab#c"))

(test-equal "backslash prevents comment"
  "ab\\#c"
  (string-remove-comments "ab\\#c"))

(test-end "string-remove-comments")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(test-begin "read-line-handle-escaped-newline")

(test-assert "empty string with no newline"
  (receive (str n)
      (with-input-from-string "" read-line-handle-escaped-newline)
    (and
     (string-null? str)
     (zero? n))))

(test-assert "non-empty string with no newline"
  (receive (str n)
      (with-input-from-string "a" read-line-handle-escaped-newline)
    (and
     (string=? str "a\n")
     (= n 1))))

(test-assert "non-empty string with terminal backslash and no newline"
  (receive (str n)
      (with-input-from-string "a\\" read-line-handle-escaped-newline)
    (and
     (string=? str "a\n")
     (= n 1))))

(test-assert "empty string with newline"
  (receive (str n)
      (with-input-from-string "\n" read-line-handle-escaped-newline)
    (and
     (string=? str "\n")
     (= n 1))))

(test-assert "non-empty string with newline"
  (receive (str n)
      (with-input-from-string "a\n" read-line-handle-escaped-newline)
    (and
     (string=? str "a\n")
     (= n 1))))

(test-assert "non-empty string with terminal backslash and newline"
  (receive (str n)
      (with-input-from-string "a\\\n" read-line-handle-escaped-newline)
    (and
     (string=? str "a\n")
     (= n 1))))

(test-assert "empty string with newline plus 2nd line"
  (receive (str n)
      (with-input-from-string "\na\n" read-line-handle-escaped-newline)
    (and
     (string=? str "\n")
     (= n 1))))

(test-assert "non-empty string with newline plus 2nd line"
  (receive (str n)
      (with-input-from-string "a\nb\n" read-line-handle-escaped-newline)
    (and
     (string=? str "a\n")
     (= n 1))))

(test-assert "non-empty string with terminal backslash and newline plus 2nd line"
  (receive (str n)
      (with-input-from-string "a\\\nb\n" read-line-handle-escaped-newline)
    (and
     (string=? str "a\nb\n")
     (= n 2))))

(test-end "read-line-handle-escaped-newline")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(test-begin "string-shrink-whitespace")

(test-equal "no whitespace at location"
  "abc"
  (string-shrink-whitespace "abc" 0))

(test-equal "single space at beginning of line"
  " abc"
  (string-shrink-whitespace " abc" 0))

(test-equal "single tab at beginning of line"
  " abc"
  (string-shrink-whitespace "\tabc" 0))

(test-equal "multiple spaces at beginning of line"
  " abc"
  (string-shrink-whitespace "   abc" 0))

(test-equal "multiple tabs at beginning of line"
  " abc"
  (string-shrink-whitespace "\t\t\tabc" 0))

(test-equal "single space in middle of line"
  "ab cd"
  (string-shrink-whitespace "ab cd" 2))

(test-equal "single tab in middle of line"
  "ab cd"
  (string-shrink-whitespace "ab\tcd" 2))

(test-equal "multiple spaces in middle of line"
  "ab cd"
  (string-shrink-whitespace "ab   cd" 2))

(test-equal "multiple tabs in middle of line"
  "ab cd"
  (string-shrink-whitespace "ab\t\t\tcd" 2))

(test-equal "single space at end of line"
  "ab "
  (string-shrink-whitespace "ab " 2))

(test-equal "single tab at end of line"
  "ab "
  (string-shrink-whitespace "ab\t" 2))

(test-equal "multiple spaces at end of line"
  "ab "
  (string-shrink-whitespace "ab   " 2))

(test-equal "multiple tabs at end of line"
  "ab "
  (string-shrink-whitespace "ab\t\t\t" 2))

(test-end "string-shrink-whitespace")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(test-begin "string-find-repeated-chars")

(test-equal "empty string"
  #f
  (string-find-repeated-chars "" #\a))

(test-equal "single-char non-matching string"
  #f
  (string-find-repeated-chars "a" #\b))

(test-equal "single-char matching string"
  '(0 . 1)
  (string-find-repeated-chars "a" #\a))

(test-equal "non-matching string"
  #f
  (string-find-repeated-chars "abcdef" #\g))

(test-equal "matching non-repeating string"
  '(2 . 3)
  (string-find-repeated-chars "abcdef" #\c))

(test-equal "matching repeating string"
  '(2 . 5)
  (string-find-repeated-chars "abcccdef" #\c))

(test-end "string-find-repeated-chars")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(test-begin "string-find-preceding-backslashes")

(test-equal "empty string"
  0
  (string-find-preceding-backslashes "" 0))

(test-equal "single-character string"
  0
  (string-find-preceding-backslashes "a" 0))

(test-equal "two-character string w/o backslashes"
  1
  (string-find-preceding-backslashes "ab" 1))

(test-equal "two-character string with a backslash"
  0
  (string-find-preceding-backslashes "\\b" 1))

(test-equal "three-character string with a backslash"
  1
  (string-find-preceding-backslashes "a\\b" 2))

(test-equal "three-character string with two backslash"
  0
  (string-find-preceding-backslashes "\\\\b" 2))

(test-end "string-find-preceding-backslashes")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(test-begin "string-collapse-continuations")

(test-equal "empty string"
  ""
  (string-collapse-continuations ""))

(test-equal "string with no newline"
  "abc"
  (string-collapse-continuations "abc"))

(test-equal "string with terminal newline"
  "abc\n"
  (string-collapse-continuations "abc\n"))

(test-equal "string with medial newline"
  "abc\ndef"
  (string-collapse-continuations "abc\ndef"))

(test-equal "string with terminal continuation"
  "abc"
  (string-collapse-continuations "abc\\\n"))

(test-equal "string with medial continuation"
  "abcdef"
  (string-collapse-continuations "abc\\\ndef"))

(test-equal "string with medial continuation and single whitespace"
  "abc def"
  (string-collapse-continuations "abc\\\n def"))

(test-equal "string with medial continuation and multiple whitespace"
  "abc  def"
  (string-collapse-continuations "abc\\\n  def"))

(test-equal "string with medial continuation and multiple whitespace, squash"
  "abc def"
  (string-collapse-continuations "abc\\\n  def" #t))

(test-end "string-collapse-continuations")
;; Local Variables:
;; mode: scheme
;; End: