github.com/jdgcs/sqlite3@v1.12.1-0.20210908114423-bc5f96e4dd51/testdata/tcl/json105.test (about)

     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