Provides unit tests and examples for the Quote lens.
| Test_Quote | Provides unit tests and examples for the Quote lens. |
| double | |
| double | |
| double_opt | |
| double_opt | |
| double_opt | |
| double_opt | Value cannot start with a space |
| single | |
| single | |
| single_opt | |
| single_opt | |
| single_opt | |
| single_opt | Value cannot start with a space |
| any | |
| any | |
| any | |
| any_opt | |
| any_opt | |
| any_opt | |
| any_opt | |
| any_opt | Value cannot start with a space |
| double_opt_allow_spc | |
| double_opt_allow_spc | |
| quote_spaces | |
| quote_spaces | |
| quote_spaces | Unquoted value |
| quote_spaces | double quoted value |
| quote_spaces | single quoted value |
| quote_spaces | unquoted value with spaces |
| quote_spaces | double quoted value with spaces |
| quote_spaces | single quoted value with spaces |
| quote_spaces | remove spaces from double-quoted value |
| quote_spaces | remove spaces from single-quoted value |
| quote_spaces | add spaces to unquoted value |
| quote_spaces | add spaces to double-quoted value |
| quote_spaces | add spaces to single-quoted value |
| dquote_spaces | |
| dquote_spaces | |
| dquote_spaces | Unquoted value |
| dquote_spaces | double quoted value |
| dquote_spaces | single quoted value |
| dquote_spaces | unquoted value with spaces |
| dquote_spaces | double quoted value with spaces |
| dquote_spaces | single quoted value with spaces |
| dquote_spaces | remove spaces from double-quoted value |
| dquote_spaces | add spaces to unquoted value |
| dquote_spaces | add spaces to double-quoted value |
| dquote_spaces | add spaces to single-quoted value |
| squote_spaces | |
| squote_spaces | |
| squote_spaces | Unquoted value |
| squote_spaces | double quoted value |
| squote_spaces | single quoted value |
| squote_spaces | unquoted value with spaces |
| squote_spaces | double quoted value with spaces |
| squote_spaces | single quoted value with spaces |
| squote_spaces | remove spaces from single-quoted value |
| squote_spaces | add spaces to unquoted value |
| squote_spaces | add spaces to double-quoted value |
| squote_spaces | add spaces to single-quoted value |
| nil cases | |
| dquote_opt_nil | |
| dquote_opt_nil | |
| dquote_opt_nil | |
| dquote_opt_nil | |
| dquote_opt_nil | |
| dquote_opt_nil | |
| dquote_opt_nil | |
| squote_opt_nil | |
| squote_opt_nil | |
| squote_opt_nil | |
| squote_opt_nil | |
| squote_opt_nil | |
| squote_opt_nil | |
| squote_opt_nil | |
| quote_opt_nil | |
| quote_opt_nil | |
| quote_opt_nil | |
| quote_opt_nil | |
| quote_opt_nil | |
| quote_opt_nil | |
| quote_opt_nil |
let double = [ label "double" . Quote.double ]
let double_opt = [ label "double_opt" . Quote.double_opt ]
let single = [ label "single" . Quote.single ]
let single_opt = [ label "single_opt" . Quote.single_opt ]
let any = [ label "any" . Quote.any ]
let any_opt = [ label "any_opt" . Quote.any_opt ]
let double_opt_allow_spc = let body = store /[^\n"]+/ in [ label "double" . Quote.do_dquote_opt body ]
let quote_spaces = Quote.quote_spaces (label "spc")
let dquote_spaces = Quote.dquote_spaces (label "spc")
let squote_spaces = Quote.squote_spaces (label "spc")
let dquote_opt_nil = let body = store Quote.double_opt_re in [ label "dquote_opt_nil" . Quote.do_dquote_opt_nil body ]?
let squote_opt_nil = let body = store Quote.single_opt_re in [ label "squote_opt_nil" . Quote.do_squote_opt_nil body ]?
let quote_opt_nil = let body = store Quote.any_opt_re in [ label "quote_opt_nil" . Quote.do_quote_opt_nil body ]?