jackfoxy/urQL
1
1
Fork 0
mirror of https://github.com/jackfoxy/urQL.git synced 2024-12-13 14:21:12 +03:00
Code Issues Packages Projects Releases Wiki Activity

interim block comment tests

Browse Source
This commit is contained in:
jackfoxy 2023-11-11 15:39:41 -08:00
parent 827338daca
commit b312de5b03
1 changed files with 66 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
urql/tests/lib/parse-sans.hoon
View File

@ -16,35 +16,96 @@
=/ expected2 [%create-namespace database-name='db1' name='db1-ns1' as-of=~]
%+ expect-eq
!> ~[expected1 expected2]
!> (parse:parse(default-database 'other-db') (zing (limo ~[m-cmnt-1 "cReate" m-cmnt-2 " namespace ns1\0a" " ; \0a" "cReate namesPace db1.db1-ns1\0a" m-cmnt-3])))
!> %- parse:parse(default-database 'other-db')
%- zing
%- limo :~ m-cmnt-1
"cReate"
m-cmnt-2
" namespace ns1\0a"
" ; \0a"
"cReate namesPace db1.db1-ns1\0a"
m-cmnt-3
==
++ test-multiline-cmnt-01
=/ expected1 [%create-namespace database-name='other-db' name='ns1' as-of=~]
=/ expected2 [%create-namespace database-name='db1' name='db1-ns1' as-of=~]
%+ expect-eq
!> ~[expected1 expected2]
!> (parse:parse(default-database 'other-db') (zing (limo ~["cReate\0a" m-cmnt-1 " namespace ns1\0a" m-cmnt-2 " ; \0a" m-cmnt-3 "cReate namesPace db1.db1-ns1\0a"])))
!> %- parse:parse(default-database 'other-db')
%- zing
%- limo :~ "cReate\0a"
m-cmnt-1
" namespace ns1\0a"
m-cmnt-2
" ; \0a"
m-cmnt-3
"cReate namesPace db1.db1-ns1\0a"
==
++ test-multiline-cmnt-02
=/ expected1 [%create-namespace database-name='other-db' name='ns1' as-of=~]
=/ expected2 [%create-namespace database-name='db1' name='db1-ns1' as-of=~]
%+ expect-eq
!> ~[expected1 expected2]
!> (parse:parse(default-database 'other-db') (zing (limo ~[m-cmnt-1 "\0acReate\0a" " namespace ns1\0a" m-cmnt-2 m-cmnt-3 " ; \0a" "cReate namesPace db1.db1-ns1\0a"])))
!> %- parse:parse(default-database 'other-db')
%- zing
%- limo :~ m-cmnt-1
"\0acReate\0a"
" namespace ns1\0a"
m-cmnt-2
m-cmnt-3
" ; \0a"
"cReate namesPace db1.db1-ns1\0a"
==
++ test-multiline-cmnt-03
=/ expected1 [%create-namespace database-name='other-db' name='ns1' as-of=~]
=/ expected2 [%create-namespace database-name='db1' name='db1-ns1' as-of=~]
%+ expect-eq
!> ~[expected1 expected2]
!> (parse:parse(default-database 'other-db') (zing (limo ~["cReate\0a" " namespace ns1\0a" m-cmnt-1 " ; \0a" m-cmnt-2 "cReate namesPace db1.db1-ns1\0a" m-cmnt-3])))
!> %- parse:parse(default-database 'other-db')
%- zing
%- limo :~ "cReate\0a"
" namespace ns1\0a"
m-cmnt-1
" ; \0a"
m-cmnt-2
"cReate namesPace db1.db1-ns1\0a"
m-cmnt-3
==
++ test-multiline-cmnt-04
=/ expected1 [%create-namespace database-name='other-db' name='ns1' as-of=~]
=/ expected2 [%create-namespace database-name='db1' name='db1-ns1' as-of=~]
%+ expect-eq
!> ~[expected1 expected2]
!> (parse:parse(default-database 'other-db') (zing (limo ~["cReate\0a" " namespace ns1" m-cmnt-1 " ; " m-cmnt-2 "cReate namesPace db1.db1-ns1" m-cmnt-3])))
!> %- parse:parse(default-database 'other-db')
%- zing
%- limo :~ "cReate\0a"
" namespace ns1"
m-cmnt-1
" ; "
m-cmnt-2
"cReate namesPace db1.db1-ns1"
m-cmnt-3
==
++ test-multiline-cmnt-005
=/ expected1 [%create-namespace database-name='other-db' name='ns1' as-of=~]
=/ expected2 [%create-namespace database-name='db1' name='db1-ns1' as-of=~]
%+ expect-eq
!> ~[expected1 expected2]
!> %- parse:parse(default-database 'other-db')
%- zing
%- limo :~ "select '\2f\2a', '*\2f', '--', ' \2f\2a ', ' *\2f ', ' -- '"
m-cmnt-1
"select ' -- ', '\2f\2a', '*\2f', '--', ' \2f\2a ', ' *\2f '"
m-cmnt-2
"select ' *\2f ', ' -- ', '\2f\2a', '*\2f', '--', ' \2f\2a '"
m-cmnt-3
==
::@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
::