import Test.HUnit
import System.Exit
import Kparams.Internal (find)
cases' = [
  "simple"
    ~: "find BOOT_IMAGE BOOT_IMAGE=..."
    ~: Just "blahblah"
    ~=? (find "BOOT_IMAGE" "BOOT_IMAGE=blahblah"),
  "simple"
    ~: "find NOTHING BOOT_IMAGE=..."
    ~: Nothing
    ~=? (find "NOTHING" "BOOT_IMAGE=blahblah"),
  "simple"
    ~: "find foo foo=bar\\n"
    ~: Just "bar"
    ~=? (find "foo" "foo=bar\n"),
  "multi"
    ~: "find SOMETHING \"BOOT_IMAGE=... SOMETHING\""
    ~: Just ""
    ~=? (find "SOMETHING" "BOOT_IMAGE=blahblah SOMETHING"),
  "multi"
    ~: "find SOMETHING \"BOOT_IMAGE=... SOMETHING=...\""
    ~: Just "foo"
    ~=? (find "SOMETHING" "BOOT_IMAGE=blahblah SOMETHING=foo"),
  "quoting"
    ~: "find foobar foobar='foo bar'"
    ~: Just "foo bar"
    ~=? (find "foobar" "foobar='foo bar'"),
  "quoting"
    ~: "find foobar foobar=\"foo bar\""
    ~: Just "foo bar"
    ~=? (find "foobar" "foobar=\"foo bar\""),
  "quoting never closed"
    ~: "find foobar foobar=\"foo bar"
    ~: Just "foo bar"
    ~=? (find "foobar" "foobar=\"foo bar"),
  "quoting weirdly embedded"
    ~: "find foobar foobar=fo\"o b\"ar"
    ~: Just "foo bar"
    ~=? (find "foobar" "foobar=fo\"o b\"ar"),
  "quoting weirdly embedded"
    ~: "find foobar foobar=foo\" \"bar"
    ~: Just "foo bar"
    ~=? (find "foobar" "foobar=foo\" \"bar"),
  "escaping"
    ~: "find foobar foobar=foo\\ bar"
    ~: Just "foo bar"
    ~=? (find "foobar" "foobar=foo\\ bar"),
  "escaping"
    ~: "find foobar \"foobar=foo\\\" SOMETHING ELSE\""
    ~: Just "foo\""
    ~=? (find "foobar" "foobar=foo\\\" SOMETHING ELSE")]

main :: IO()
main = do
    counts <- runTestTT (TestList cases')
    if (errors counts + failures counts == 0)
      then exitSuccess
      else exitFailure