test/json105.test

   1 # 2019-11-22
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   6 #    May you do good and not evil.
   7 #    May you find forgiveness for yourself and forgive others.
   8 #    May you share freely, never taking more than you give.
   9 #
  10 #***********************************************************************
  11 # This file implements tests for "[#]" extension to json-path
  12 #
  13
  14 set testdir [file dirname $argv0]
  15 source $testdir/tester.tcl
  16 set testprefix json104
  17
  18 ifcapable !json1 {
  19   finish_test
  20   return
  21 }
  22
  23 # This is the example from pages 2 and 3 of RFC-7396
  24 db eval {
  25   CREATE TABLE t1(j);
  26   INSERT INTO t1(j) VALUES('{"a":1,"b":[1,[2,3],4],"c":99}');
  27 }
  28 proc json_extract_test {testnum path result} {
  29   do_execsql_test json105-1.$testnum "SELECT quote(json_extract(j,$path)) FROM t1" $result
  30 }
  31 json_extract_test 10 {'$.b[#]'}   NULL
  32 json_extract_test 20 {'$.b[#-1]'} 4
  33 json_extract_test 30 {'$.b[#-2]'} {'[2,3]'}
  34 json_extract_test 31 {'$.b[#-02]'} {'[2,3]'}
  35 json_extract_test 40 {'$.b[#-3]'} 1
  36 json_extract_test 50 {'$.b[#-4]'} NULL
  37 json_extract_test 60 {'$.b[#-2][#-1]'} 3
  38 json_extract_test 70 {'$.b[0]','$.b[#-1]'} {'[1,4]'}
  39
  40 json_extract_test 100 {'$.a[#-1]'} NULL
  41 json_extract_test 110 {'$.b[#-000001]'} 4
  42
  43 proc json_remove_test {testnum path result} {
  44   do_execsql_test json105-2.$testnum "SELECT quote(json_remove(j,$path)) FROM t1" $result
  45 }
  46 json_remove_test 10 {'$.b[#]'}    {'{"a":1,"b":[1,[2,3],4],"c":99}'}
  47 json_remove_test 20 {'$.b[#-0]'}  {'{"a":1,"b":[1,[2,3],4],"c":99}'}
  48 json_remove_test 30 {'$.b[#-1]'}  {'{"a":1,"b":[1,[2,3]],"c":99}'}
  49 json_remove_test 40 {'$.b[#-2]'}  {'{"a":1,"b":[1,4],"c":99}'}
  50 json_remove_test 50 {'$.b[#-3]'}  {'{"a":1,"b":[[2,3],4],"c":99}'}
  51 json_remove_test 60 {'$.b[#-4]'}  {'{"a":1,"b":[1,[2,3],4],"c":99}'}
  52 json_remove_test 70 {'$.b[#-2][#-1]'}  {'{"a":1,"b":[1,[2],4],"c":99}'}
  53
  54 json_remove_test 100 {'$.b[0]','$.b[#-1]'} {'{"a":1,"b":[[2,3]],"c":99}'}
  55 json_remove_test 110 {'$.b[#-1]','$.b[0]'} {'{"a":1,"b":[[2,3]],"c":99}'}
  56 json_remove_test 120 {'$.b[#-1]','$.b[#-2]'} {'{"a":1,"b":[[2,3]],"c":99}'}
  57 json_remove_test 130 {'$.b[#-1]','$.b[#-1]'} {'{"a":1,"b":[1],"c":99}'}
  58 json_remove_test 140 {'$.b[#-2]','$.b[#-1]'} {'{"a":1,"b":[1],"c":99}'}
  59
  60 proc json_insert_test {testnum x result} {
  61   do_execsql_test json105-3.$testnum "SELECT quote(json_insert(j,$x)) FROM t1" $result
  62 }
  63 json_insert_test 10 {'$.b[#]','AAA'} {'{"a":1,"b":[1,[2,3],4,"AAA"],"c":99}'}
  64 json_insert_test 20 {'$.b[1][#]','AAA'} {'{"a":1,"b":[1,[2,3,"AAA"],4],"c":99}'}
  65 json_insert_test 30 {'$.b[1][#]','AAA','$.b[#]','BBB'} \
  66      {'{"a":1,"b":[1,[2,3,"AAA"],4,"BBB"],"c":99}'}
  67 json_insert_test 40 {'$.b[#]','AAA','$.b[#]','BBB'} \
  68      {'{"a":1,"b":[1,[2,3],4,"AAA","BBB"],"c":99}'}
  69
  70 proc json_set_test {testnum x result} {
  71   do_execsql_test json105-4.$testnum "SELECT quote(json_set(j,$x)) FROM t1" $result
  72 }
  73 json_set_test 10 {'$.b[#]','AAA'} {'{"a":1,"b":[1,[2,3],4,"AAA"],"c":99}'}
  74 json_set_test 20 {'$.b[1][#]','AAA'} {'{"a":1,"b":[1,[2,3,"AAA"],4],"c":99}'}
  75 json_set_test 30 {'$.b[1][#]','AAA','$.b[#]','BBB'} \
  76      {'{"a":1,"b":[1,[2,3,"AAA"],4,"BBB"],"c":99}'}
  77 json_set_test 40 {'$.b[#]','AAA','$.b[#]','BBB'} \
  78      {'{"a":1,"b":[1,[2,3],4,"AAA","BBB"],"c":99}'}
  79 json_set_test 50 {'$.b[#-1]','AAA'} {'{"a":1,"b":[1,[2,3],"AAA"],"c":99}'}
  80 json_set_test 60 {'$.b[1][#-1]','AAA'} {'{"a":1,"b":[1,[2,"AAA"],4],"c":99}'}
  81 json_set_test 70 {'$.b[1][#-1]','AAA','$.b[#-1]','BBB'} \
  82      {'{"a":1,"b":[1,[2,"AAA"],"BBB"],"c":99}'}
  83 json_set_test 80 {'$.b[#-1]','AAA','$.b[#-1]','BBB'} \
  84      {'{"a":1,"b":[1,[2,3],"BBB"],"c":99}'}
  85
  86 proc json_replace_test {testnum x result} {
  87   do_execsql_test json105-5.$testnum "SELECT quote(json_replace(j,$x)) FROM t1" $result
  88 }
  89 json_replace_test 10 {'$.b[#]','AAA'} {'{"a":1,"b":[1,[2,3],4],"c":99}'}
  90 json_replace_test 20 {'$.b[1][#]','AAA'} {'{"a":1,"b":[1,[2,3],4],"c":99}'}
  91 json_replace_test 30 {'$.b[1][#]','AAA','$.b[#]','BBB'} \
  92      {'{"a":1,"b":[1,[2,3],4],"c":99}'}
  93 json_replace_test 40 {'$.b[#]','AAA','$.b[#]','BBB'} \
  94      {'{"a":1,"b":[1,[2,3],4],"c":99}'}
  95 json_replace_test 50 {'$.b[#-1]','AAA'} {'{"a":1,"b":[1,[2,3],"AAA"],"c":99}'}
  96 json_replace_test 60 {'$.b[1][#-1]','AAA'} {'{"a":1,"b":[1,[2,"AAA"],4],"c":99}'}
  97 json_replace_test 70 {'$.b[1][#-1]','AAA','$.b[#-1]','BBB'} \
  98      {'{"a":1,"b":[1,[2,"AAA"],"BBB"],"c":99}'}
  99 json_replace_test 80 {'$.b[#-1]','AAA','$.b[#-1]','BBB'} \
 100      {'{"a":1,"b":[1,[2,3],"BBB"],"c":99}'}
 101
 102 do_catchsql_test json105-6.10 {
 103   SELECT json_extract(j, '$.b[#-]') FROM t1;
 104 } {1 {JSON path error near '[#-]'}}
 105 do_catchsql_test json105-6.20 {
 106   SELECT json_extract(j, '$.b[#9]') FROM t1;
 107 } {1 {JSON path error near '[#9]'}}
 108 do_catchsql_test json105-6.30 {
 109   SELECT json_extract(j, '$.b[#+2]') FROM t1;
 110 } {1 {JSON path error near '[#+2]'}}
 111 do_catchsql_test json105-6.40 {
 112   SELECT json_extract(j, '$.b[#-1') FROM t1;
 113 } {1 {JSON path error near '[#-1'}}
 114 do_catchsql_test json105-6.50 {
 115   SELECT json_extract(j, '$.b[#-1x]') FROM t1;
 116 } {1 {JSON path error near '[#-1x]'}}
 117
 118 finish_test