Return to 388-sql.html CVS log

Up to [parser3project] / parser3 / tests

Annotation of parser3/tests/388-sql.html, revision 1.15

1.1       moko        1: @main[]
1.2       moko        2: 
1.13      moko        3: $path[^os[Release/;.libs/lib]]
                      4: $ext[^os[dll;so]]
                      5: 
1.2       moko        6: $SQL[
1.8       moko        7:        $.drivers[^table::create{protocol       driver  client  connect
1.13      moko        8: sqlite ../../sql/sqlite/${path}parser3sqlite.$ext      ^os[sqlite3.dll;libsqlite3.so]  sqlite://:memory:?multi_statements=1
                      9: mysql  ../../sql/mysql/${path}parser3mysql.$ext        ^os[libmySQL.dll;libmariadbclient.so]   mysql://@/?config_group=parser3&multi_statements=1
                     10: pgsql  ../../sql/pgsql/${path}parser3pgsql.$ext        libpq.$ext      pgsql://test@localhost/test
1.2       moko       11: }]
                     12: ]
                     13: 
1.11      moko       14: $sql[sqlite]
                     15: $ignore[^SQL.drivers.locate[protocol;$sql]]
1.8       moko       16: 
                     17: ^connect[$SQL.drivers.connect]{
                     18: 
1.1       moko       19:        1. 2 + 2 = ^string:sql{select 2+2}
                     20: 
1.11      moko       21: 
1.1       moko       22:        2. void
                     23: 
1.7       moko       24:        2.0 $ignore[^try-catch{ ^void:sql{drop table pets} }]
                     25: 
1.5       moko       26:        2.1 ^void:sql{create table pets (pet varchar(128), food varchar(128), aggressive varchar(128), weigth varchar(128))}
1.1       moko       27: 
                     28:        2.2 ^void:sql{insert into pets values
                     29:                ('cat', 'milk', '^taint['very']', 5),
                     30:                ('dog', 'bone', '^taint["never"]', 10),
                     31:                ('parrot', 'grain', 'alwayws', 1)
                     32:           }
                     33: 
                     34:        2.3 ^try-catch{ ^void:sql{select * from pets} }
                     35:        2.4 ^try-catch{ ^void:sql{query}[ $.unknown[yes] ] }
                     36:        2.5 ^try-catch{ ^void:sql{query}[ $.bind[ $.name[value] ] ] }
                     37: 
1.11      moko       38:        2.6 Multiple queries: ^try-catch{ ^void:sql{delete from pets where pet='' ^; delete from pets where pet=''} }
                     39:        2.8 Multiple queries, data in first query: ^if($sql ne 'mysql'){ ^try-catch{ ^void:sql{select 2+2 ^; delete from pets where pet=''} } }
                     40:        2.9 Multiple queries, data in second query: ^try-catch{ ^void:sql{delete from pets where pet='' ^; select 2+2} }
                     41: 
1.1       moko       42: 
                     43:        3. int/double
                     44: 
                     45:        3.1 $v(^int:sql{select 2}) $v $v.CLASS_NAME
                     46:        3.2 ^try-catch{ ^int:sql{select 2}[ $.limit(0) ] }
                     47:        3.3 ^int:sql{select 2}[ $.limit(0) $.default[1] ]
                     48: 
                     49:        3.4 $v(^double:sql{select -2}) $v $v.CLASS_NAME
                     50:        3.5 ^try-catch{ ^double:sql{select -2}[ $.limit(0) ] }
                     51:        3.6 ^double:sql{select -2}[ $.limit(0) $.default[1] ]
                     52: 
1.12      moko       53:        3.7 Multiple queries, data in first query: ^try-catch{ ^int:sql{select 2+2 ^; delete from pets where pet=''} }
1.11      moko       54:        3.8 Multiple queries, data in second query: ^try-catch{ ^int:sql{delete from pets where pet='' ^; select 2+2} }
                     55:        3.9 Multiple queries, data in both queries: ^try-catch{ ^int:sql{select 2+2 ^; select 3+3 } }
                     56: 
1.1       moko       57: 
                     58:        4. hash
                     59: 
                     60:        4.1 ^h[select * from pets]
                     61: 
                     62:        4.2 ^h[select * from pets; $.type[table]]
                     63: 
                     64:        4.3 ^h[select pet, food from pets; $.type[string] ]
                     65: 
                     66:        4.4 ^try-catch{ ^h[select * from pets; $.type[string] ]}
                     67: 
                     68:        4.5. ^h[select * from pets; $.type[table] $.limit(1) $.offset(1) ]
                     69: 
1.6       moko       70:        4.6 ^try-catch{ ^h[select 'dup', pet from pets; $.type[string] ]}
                     71: 
1.15    ! moko       72:        4.7 ^h[select pet from pets]
        !            73: 
1.1       moko       74: 
                     75:        5. table
                     76: 
                     77:        5.1 ^t[select * from pets]
                     78: 
                     79:        5.2. ^t[select * from pets; $.limit(1) $.offset(1) ]
                     80: 
1.4       moko       81:        5.3 ^try-catch{ ^t[select * from pets; $.bind[ $.name[value] ] ] }
                     82: 
                     83:        5.4 ^try-catch{ ^t[select * from pets; $.no-such-option[] ] }
                     84: 
1.1       moko       85: 
                     86:        6. file
                     87: 
                     88:        6.1 ^f[select aggressive,'test.txt' from pets; $.limit(1) $.content-type[text/plain] ]
                     89: 
                     90:        6.2 ^f[select aggressive,'test.txt','unknown' from pets; $.limit(1) $.name[unknown] $.offset(1) ]
                     91: 
                     92:        6.3 ^try-catch{ ^f[select * from pets; $.limit(1) ] }
                     93: 
                     94:        6.4 ^try-catch{ ^f[select aggressive from pets; $.limit(0) ] }
                     95: 
                     96:        6.5 ^try-catch{ ^f[select 1 from pets] } - bug!
                     97: 
                     98:        6.6 ^try-catch{ ^f[select 1,2 from pets] }
                     99: 
                    100:        6.7 ^try-catch{ ^f[select aggressive from pets; $.unknown[yes] ] }
                    101: 
                    102:        6.8 $f[^file::create["'test'"]] ^f.sql-string[]
                    103: 
1.3       moko      104:        7. string
                    105: 
                    106:        7.1 ^try-catch{ ^s[select * from pets; $.limit(1) $.offset(1) ] }
                    107:        7.2 ^try-catch{ ^s[select pet from pets] }
                    108:        7.3 ^try-catch{ ^s[select 2+2; $.bind[ $.name[$value] ] ] }
                    109:        7.4 ^try-catch{ ^s[select 2+2; $.no-such-option[] ] }
                    110:        7.5 ^try-catch{ ^s[select pet from pets; $.limit(0) ] }
                    111:        7.6 ^s[select pet from pets; $.limit(0) $.default{default} ]
1.1       moko      112: 
                    113: }
                    114: 
                    115: @h[query;options]
                    116:        $h[^hash::sql{$query}[$options]]
                    117:        ^json:string[$h; $.indent(1) ]
                    118: 
                    119: @t[query;options]
                    120:        $t[^table::sql{$query}[$options]]
                    121:        ^json:string[$t; $.indent(1) ]
                    122: 
                    123: @f[query;options]
                    124:        $f[^file::sql{$query}[$options]]
                    125:        ^json:string[$f; $.indent(1) $.file[text] ]
1.3       moko      126: 
                    127: @s[query;options]
                    128:        $s[^string:sql{$query}[$options]]
                    129:        "$s"
1.14      moko      130: 
                    131: @postprocess[text]
                    132:        $result[^taint[as-is;$text]]