(*

Module: Test_Quote

  Provides unit tests and examples for the <Quote> lens.

*)

module Test_Quote =

(* View: double *)

let double = [ label "double" . Quote.double ]

(* Test: double *)

test double get "\" this is a test\"" =

  { "double" = " this is a test" }

(* View: double_opt *)

let double_opt = [ label "double_opt" . Quote.double_opt ]

(* Test: double_opt *)

test double_opt get "\"this is a test\"" =

  { "double_opt" = "this is a test" }

(* Test: double_opt *)

test double_opt get "this is a test" =

  { "double_opt" = "this is a test" }

(* Test: double_opt

   Value cannot start with a space *)

test double_opt get " this is a test" = *

(* View: single *)

let single = [ label "single" . Quote.single ]

(* Test: single *)

test single get "' this is a test'" =

  { "single" = " this is a test" }

(* View: single_opt *)

let single_opt = [ label "single_opt" . Quote.single_opt ]

(* Test: single_opt *)

test single_opt get "'this is a test'" =

  { "single_opt" = "this is a test" }

(* Test: single_opt *)

test single_opt get "this is a test" =

  { "single_opt" = "this is a test" }

(* Test: single_opt

   Value cannot start with a space *)

test single_opt get " this is a test" = *

(* View: any *)

let any = [ label "any" . Quote.any ]

(* Test: any *)

test any get "\" this is a test\"" =

  { "any" = " this is a test" }

(* Test: any *)

test any get "' this is a test'" =

  { "any" = " this is a test" }

(* View: any_opt *)

let any_opt = [ label "any_opt" . Quote.any_opt ]

(* Test: any_opt *)

test any_opt get "\"this is a test\"" =

  { "any_opt" = "this is a test" }

(* Test: any_opt *)

test any_opt get "'this is a test'" =

  { "any_opt" = "this is a test" }

(* Test: any_opt *)

test any_opt get "this is a test" =

  { "any_opt" = "this is a test" }

(* Test: any_opt

   Value cannot start with a space *)

test any_opt get " this is a test" = *

(* View: double_opt_allow_spc *)

let double_opt_allow_spc =

  let body = store /[^\n"]+/ in

  [ label "double" . Quote.do_dquote_opt body ]

(* Test: double_opt_allow_spc *)

test double_opt_allow_spc get " test with spaces " =

  { "double" = " test with spaces " }

(* Group: quote_spaces *)

(* View: quote_spaces *)

let quote_spaces =

  Quote.quote_spaces (label "spc")

(* Test: quote_spaces

     Unquoted value *)

test quote_spaces get "this" =

  { "spc" = "this" }

(* Test: quote_spaces

     double quoted value *)

test quote_spaces get "\"this\"" =

  { "spc" = "this" }

(* Test: quote_spaces

     single quoted value *)

test quote_spaces get "'this'" =

  { "spc" = "this" }

(* Test: quote_spaces

     unquoted value with spaces *)

test quote_spaces get "this that those" = *

(* Test: quote_spaces

     double quoted value with spaces *)

test quote_spaces get "\"this that those\"" =

  { "spc" = "this that those" }

(* Test: quote_spaces

     single quoted value with spaces *)

test quote_spaces get "'this that those'" =

  { "spc" = "this that those" }

(* Test: quote_spaces

     remove spaces from double-quoted value *)

test quote_spaces put "\"this that those\""

  after set "spc" "thisthat" =

  "\"thisthat\""

(* Test: quote_spaces

     remove spaces from single-quoted value *)

test quote_spaces put "'this that those'"

  after set "spc" "thisthat" =

  "'thisthat'"

(* Test: quote_spaces

     add spaces to unquoted value *)

test quote_spaces put "this"

  after set "spc" "this that those" =

  "\"this that those\""

(* Test: quote_spaces

     add spaces to double-quoted value *)

test quote_spaces put "\"this\""

  after set "spc" "this that those" =

  "\"this that those\""

(* Test: quote_spaces

     add spaces to single-quoted value *)

test quote_spaces put "'this'"

  after set "spc" "this that those" =

  "'this that those'"

(* Group: dquote_spaces *)

(* View: dquote_spaces *)

let dquote_spaces =

  Quote.dquote_spaces (label "spc")

(* Test: dquote_spaces

     Unquoted value *)

test dquote_spaces get "this" =

  { "spc" = "this" }

(* Test: dquote_spaces

     double quoted value *)

test dquote_spaces get "\"this\"" =

  { "spc" = "this" }

(* Test: dquote_spaces

     single quoted value *)

test dquote_spaces get "'this'" =

  { "spc" = "'this'" }

(* Test: dquote_spaces

     unquoted value with spaces *)

test dquote_spaces get "this that those" = *

(* Test: dquote_spaces

     double quoted value with spaces *)

test dquote_spaces get "\"this that those\"" =

  { "spc" = "this that those" }

(* Test: dquote_spaces

     single quoted value with spaces *)

test dquote_spaces get "'this that those'" = *

(* Test: dquote_spaces

     remove spaces from double-quoted value *)

test dquote_spaces put "\"this that those\""

  after set "spc" "thisthat" =

  "\"thisthat\""

(* Test: dquote_spaces

     add spaces to unquoted value *)

test dquote_spaces put "this"

  after set "spc" "this that those" =

  "\"this that those\""

(* Test: dquote_spaces

     add spaces to double-quoted value *)

test dquote_spaces put "\"this\""

  after set "spc" "this that those" =

  "\"this that those\""

(* Test: dquote_spaces

     add spaces to single-quoted value *)

test dquote_spaces put "'this'"

  after set "spc" "this that those" =

  "\"this that those\""

(* Group: squote_spaces *)

(* View: squote_spaces *)

let squote_spaces =

  Quote.squote_spaces (label "spc")

(* Test: squote_spaces

     Unquoted value *)

test squote_spaces get "this" =

  { "spc" = "this" }

(* Test: squote_spaces

     double quoted value *)

test squote_spaces get "\"this\"" =

  { "spc" = "\"this\"" }

(* Test: squote_spaces

     single quoted value *)

test squote_spaces get "'this'" =

  { "spc" = "this" }

(* Test: squote_spaces

     unquoted value with spaces *)

test squote_spaces get "this that those" = *

(* Test: squote_spaces

     double quoted value with spaces *)

test squote_spaces get "\"this that those\"" = *

(* Test: squote_spaces

     single quoted value with spaces *)

test squote_spaces get "'this that those'" =

  { "spc" = "this that those" }

(* Test: squote_spaces

     remove spaces from single-quoted value *)

test squote_spaces put "'this that those'"

  after set "spc" "thisthat" =

  "'thisthat'"

(* Test: squote_spaces

     add spaces to unquoted value *)

test squote_spaces put "this"

  after set "spc" "this that those" =

  "'this that those'"

(* Test: squote_spaces

     add spaces to double-quoted value *)

test squote_spaces put "\"this\""

  after set "spc" "this that those" =

  "'this that those'"

(* Test: squote_spaces

     add spaces to single-quoted value *)

test squote_spaces put "'this'"

  after set "spc" "this that those" =

  "'this that those'"

(* Group: nil cases *)

(* View: dquote_opt_nil *)

let dquote_opt_nil =

     let body = store Quote.double_opt_re

  in [ label "dquote_opt_nil" . Quote.do_dquote_opt_nil body ]?

(* Test: dquote_opt_nil *)

test dquote_opt_nil get "this" =

  { "dquote_opt_nil" = "this" }

(* Test: dquote_opt_nil *)

test dquote_opt_nil get "'this'" =

  { "dquote_opt_nil" = "'this'" }

(* Test: dquote_opt_nil *)

test dquote_opt_nil get "\"this\"" =

  { "dquote_opt_nil" = "this" }

(* Test: dquote_opt_nil *)

test dquote_opt_nil put ""

  after set "dquote_opt_nil" "this" =

  "this"

(* Test: dquote_opt_nil *)

test dquote_opt_nil put "\"this\""

  after set "dquote_opt_nil" "this" =

  "\"this\""

(* Test: dquote_opt_nil *)

test dquote_opt_nil put "'this'"

  after set "dquote_opt_nil" "this" =

  "this"

(* View: squote_opt_nil *)

let squote_opt_nil =

     let body = store Quote.single_opt_re

  in [ label "squote_opt_nil" . Quote.do_squote_opt_nil body ]?

(* Test: squote_opt_nil *)

test squote_opt_nil get "this" =

  { "squote_opt_nil" = "this" }

(* Test: squote_opt_nil *)

test squote_opt_nil get "'this'" =

  { "squote_opt_nil" = "this" }

(* Test: squote_opt_nil *)

test squote_opt_nil get "\"this\"" =

  { "squote_opt_nil" = "\"this\"" }

(* Test: squote_opt_nil *)

test squote_opt_nil put ""

  after set "squote_opt_nil" "this" =

  "this"

(* Test: squote_opt_nil *)

test squote_opt_nil put "\"this\""

  after set "squote_opt_nil" "this" =

  "this"

(* Test: squote_opt_nil *)

test squote_opt_nil put "\"this\""

  after set "squote_opt_nil" "this" =

  "this"

(* View: quote_opt_nil *)

let quote_opt_nil =

     let body = store Quote.any_opt_re

  in [ label "quote_opt_nil" . Quote.do_quote_opt_nil body ]?

(* Test: quote_opt_nil *)

test quote_opt_nil get "this" =

  { "quote_opt_nil" = "this" }

(* Test: quote_opt_nil *)

test quote_opt_nil get "'this'" =

  { "quote_opt_nil" = "this" }

(* Test: quote_opt_nil *)

test quote_opt_nil get "\"this\"" =

  { "quote_opt_nil" = "this" }

(* Test: quote_opt_nil *)

test quote_opt_nil put ""

  after set "quote_opt_nil" "this" =

  "this"

(* Test: quote_opt_nil *)

test quote_opt_nil put "\"this\""

  after set "quote_opt_nil" "this" =

  "\"this\""

(* Test: quote_opt_nil *)

test quote_opt_nil put "'this'"

  after set "quote_opt_nil" "this" =

  "'this'"