#! /bin/bash

run_test ./drive_sql "select json_concat(json('[null, true, 0]'), 1.0, 2.0)"

check_output "json_concat does not work" <<EOF
Row 0:
  Column json_concat(json('[null, true, 0]'), 1.0, 2.0): [null,true,0,1.0,2.0]
EOF

run_test ./drive_sql "select json_concat(json('[\"tag0\"]'), 'tag1', 'tag2')"

check_output "json_concat does not work with strings" <<EOF
Row 0:
  Column json_concat(json('["tag0"]'), 'tag1', 'tag2'): ["tag0","tag1","tag2"]
EOF

run_test ./drive_sql "select json_concat(NULL, NULL)"

check_output "json_concat does not work" <<EOF
Row 0:
  Column json_concat(NULL, NULL): [null]
EOF

run_test ./drive_sql "select json_concat(NULL, json('{\"abc\": 1}'))"

check_output "json_concat does not work" <<EOF
Row 0:
  Column json_concat(NULL, json('{"abc": 1}')): [{"abc":1}]
EOF

run_test ./drive_sql "select json_contains(NULL, 4)"

check_output "json_contains does not work" <<EOF
Row 0:
  Column json_contains(NULL, 4): 0
EOF

run_test ./drive_sql "select json_contains('', 4)"

check_output "json_contains does not work" <<EOF
Row 0:
  Column json_contains('', 4): 0
EOF

run_test ./drive_sql "select json_contains('null', NULL)"

check_output "json_contains does not work" <<EOF
Row 0:
  Column json_contains('null', NULL): 1
EOF

run_test ./drive_sql "select json_contains('[[0]]', 0)"

check_output "json_contains does not work" <<EOF
Row 0:
  Column json_contains('[[0]]', 0): 0
EOF

run_test ./drive_sql "select json_contains('4', 4)"

check_output "json_contains does not work" <<EOF
Row 0:
  Column json_contains('4', 4): 1
EOF

run_test ./drive_sql "select json_contains('4', 2)"

check_output "json_contains does not work" <<EOF
Row 0:
  Column json_contains('4', 2): 0
EOF

run_test ./drive_sql <<EOF
select json_contains('"hi"', 'hi')
EOF

check_output "json_contains does not work" <<EOF
Row 0:
  Column json_contains('"hi"', 'hi'): 1
EOF

run_test ./drive_sql <<EOF
select json_contains('["hi", "bye"]', 'hola') as res
EOF

check_output "json_contains does not work" <<EOF
Row 0:
  Column res: 0
EOF

run_test ./drive_sql <<EOF
select json_contains('["hi", "bye", "solong"]', 'bye') as res
EOF

check_output "json_contains does not work" <<EOF
Row 0:
  Column res: 1
EOF

run_test ./drive_sql <<EOF
select json_contains('["hi", "bye", "solong]', 'bye') as res
EOF

check_error_output "json_contains does not work" <<EOF
error: sqlite3_exec failed -- parse error: premature EOF
                                       ["hi", "bye", "solong]
                     (right here) ------^

EOF

run_test ./drive_sql "select jget('4', '')"

check_output "jget root does not work" <<EOF
Row 0:
  Column jget('4', ''): 4
EOF

run_test ./drive_sql "select jget('4', null)"

check_output "jget null does not work" <<EOF
Row 0:
  Column jget('4', null): 4
EOF

run_test ./drive_sql "select jget('[null, true, 20, 30, 40]', '/3')"

check_error_output "" <<EOF
EOF

check_output "jget null does not work" <<EOF
Row 0:
  Column jget('[null, true, 20, 30, 40]', '/3'): 30
EOF

run_test ./drive_sql "select typeof(jget('[null, true, 20, 30, 40]', '/3'))"

check_error_output "" <<EOF
EOF

check_output "jget null does not work" <<EOF
Row 0:
  Column typeof(jget('[null, true, 20, 30, 40]', '/3')): integer
EOF

run_test ./drive_sql "select jget('[null, true, 20, 30, 40, {\"msg\": \"Hello\"}]', '/5')"

check_error_output "" <<EOF
EOF

check_output "jget null does not work" <<EOF
Row 0:
  Column jget('[null, true, 20, 30, 40, {"msg": "Hello"}]', '/5'): {"msg":"Hello"}
EOF

run_test ./drive_sql "select jget('[null, true, 20, 30, 40, {\"msg\": \"Hello\"}]', '/5/msg')"

check_error_output "" <<EOF
EOF

check_output "jget null does not work" <<EOF
Row 0:
  Column jget('[null, true, 20, 30, 40, {"msg": "Hello"}]', '/5/msg'): Hello
EOF

run_test ./drive_sql "select jget('[null, true, 20, 30, 40, {\"msg\": \"Hello\"}]', '')"

check_error_output "" <<EOF
EOF

check_output "jget null does not work" <<EOF
Row 0:
  Column jget('[null, true, 20, 30, 40, {"msg": "Hello"}]', ''): [null,true,20,30,40,{"msg":"Hello"}]
EOF

run_test ./drive_sql "select jget('[null, true, 20, 30, 40]', '/abc')"

check_error_output "" <<EOF
EOF

check_output "jget for array does not work" <<EOF
Row 0:
  Column jget('[null, true, 20, 30, 40]', '/abc'): (null)
EOF

run_test ./drive_sql "select jget('[null, true, 20, 30, 40]', '/abc', 1)"

check_error_output "" <<EOF
EOF

check_output "jget for array does not work" <<EOF
Row 0:
  Column jget('[null, true, 20, 30, 40]', '/abc', 1): 1
EOF

run_test ./drive_sql "select jget('[null, true, 20, 30, 40]', '/0')"

check_error_output "" <<EOF
EOF

check_output "jget for array does not work" <<EOF
Row 0:
  Column jget('[null, true, 20, 30, 40]', '/0'): (null)
EOF

run_test ./drive_sql "select jget('[null, true, 20, 30, 40]', '/0/foo')"

check_error_output "" <<EOF
EOF

check_output "jget for array does not work" <<EOF
Row 0:
  Column jget('[null, true, 20, 30, 40]', '/0/foo'): (null)
EOF

run_test ./drive_sql "select jget('[null, true, 20, 30, 4.0]', '/4')"

check_error_output "" <<EOF
EOF

check_output "jget for array does not work" <<EOF
Row 0:
  Column jget('[null, true, 20, 30, 4.0]', '/4'): 4.0
EOF

run_test ./drive_sql "select typeof(jget('[null, true, 20, 30, 4.0]', '/4'))"

check_error_output "" <<EOF
EOF

check_output "jget for array does not work" <<EOF
Row 0:
  Column typeof(jget('[null, true, 20, 30, 4.0]', '/4')): real
EOF

run_test ./drive_sql "select jget('[null, true, 20, 30, 40', '/0/foo')"

check_error_output "" <<EOF
error: sqlite3_exec failed -- parse error: premature EOF

EOF

run_test ./drive_sql "select json_group_object(key) from (select 1 as key)"

check_error_output "" <<EOF
error: sqlite3_exec failed -- Uneven number of arguments to json_group_object(), expecting key and value pairs
EOF

GROUP_SELECT_1=$(cat <<EOF
SELECT id, json_group_object(key, value) as stack FROM (
              SELECT 1 as id, 'key1' as key, 10 as value
    UNION ALL SELECT 1 as id, 'key2' as key, 20 as value
    UNION ALL SELECT 1 as id, 'key3' as key, 30 as value)
EOF
)

run_test ./drive_sql "$GROUP_SELECT_1"

check_error_output "" <<EOF
EOF

check_output "json_group_object does not work" <<EOF
Row 0:
  Column         id: 1
  Column      stack: {"key1":10,"key2":20,"key3":30}
EOF

GROUP_SELECT_2=$(cat <<EOF
SELECT id, json_group_object(key, value) as stack FROM (
              SELECT 1 as id, 1 as key, 10 as value
    UNION ALL SELECT 1 as id, 2 as key, null as value
    UNION ALL SELECT 1 as id, 3 as key, 30.5 as value)
EOF
)

run_test ./drive_sql "$GROUP_SELECT_2"

check_error_output "" <<EOF
EOF


check_output "json_group_object with number keys does not work" <<EOF
Row 0:
  Column         id: 1
  Column      stack: {"1":10,"2":null,"3":30.5}
EOF

if test x"$HAVE_SQLITE3_VALUE_SUBTYPE" != x""; then
    GROUP_SELECT_3=$(cat <<EOF
SELECT id, json_group_object(key, value) as stack FROM (
              SELECT 1 as id, 1 as key, 10 as value
    UNION ALL SELECT 1 as id, 2 as key, json_array(1, 2, 3) as value
    UNION ALL SELECT 1 as id, 3 as key, 30.5 as value)
EOF
)

    run_test ./drive_sql "$GROUP_SELECT_3"

    check_error_output "" <<EOF
EOF

    check_output "json_group_object with number keys does not work" <<EOF
Row 0:
  Column         id: 1
  Column      stack: {"1":10,"2":[1,2,3],"3":30.5}
EOF
fi


GROUP_ARRAY_SELECT_1=$(cat <<EOF
SELECT json_group_array(value) as stack FROM (
              SELECT 10 as value
    UNION ALL SELECT null as value
    UNION ALL SELECT 'hello' as value)
EOF
)

run_test ./drive_sql "$GROUP_ARRAY_SELECT_1"

check_error_output "" <<EOF
EOF

check_output "json_group_array does not work" <<EOF
Row 0:
  Column      stack: [10,null,"hello"]
EOF

GROUP_ARRAY_SELECT_2=$(cat <<EOF
SELECT json_group_array(value, value * 10) as stack FROM (
              SELECT 10 as value
    UNION ALL SELECT 20 as value
    UNION ALL SELECT 30 as value)
EOF
)

run_test ./drive_sql "$GROUP_ARRAY_SELECT_2"

check_error_output "" <<EOF
EOF

check_output "json_group_array does not work" <<EOF
Row 0:
  Column      stack: [10,100,20,200,30,300]
EOF