sqlite/test/shell_x/shell9.test

# 2022 Feb 5
#
# The author disclaims copyright to this source code.  In place of
# a legal notice, here is a blessing:
#
#    May you do good and not evil.
#    May you find forgiveness for yourself and forgive others.
#    May you share freely, never taking more than you give.
#
#***********************************************************************
#
# The focus of this file is testing the CLI shell tool enhanced parsing,
# .parameter and .vars subcommands and uses, and the .x command.
#
#

# Test plan:
#
#   shell9-1.*: command line parsing and acting accordingly
#   shell9-2.*: Basic "dot" command, cross-line token parsing
#   shell9-3.*: .parameter set options and types
#   shell9-4.*: .parameter save/load operation
#   shell9-5.*: Ensure "dot" commands and SQL intermix ok.
#   shell9-6.*: .x command operation and refusal
#
set testdir [file join [file dirname $argv0] ..]
source [file join $testdir tester.tcl]
set CLI [test_find_cli sqlite3x]
db close
forcedelete test.db test.db-journal test.db-wal
forcedelete x.db xn.db

sqlite3 db test.db

#----------------------------------------------------------------------------
# Test cases shell9-1.*: command line parsing and acting accordingly

do_test shell9-1.1 {
  set res [catchcmd ":memory: -cmd .quit" ""]
} {0 {}}

do_test shell9-1.2 {
  set res [catchcmd ":memory: -shxopts 1 -cmd .shxopts -cmd .quit" ""]
} {0 {     name    value  "-shxopts set"
   --------  -----  ---------------
    parsing    1    "-shxopts 0x01"
   all_opts    0    "-shxopts 0x07"}}

do_test shell9-1.3 {
  set res [catchcmd ":memory: -cmd .shxopts -cmd .quit" ""]
} {0 {     name    value  "-shxopts set"
   --------  -----  ---------------
    parsing    1    "-shxopts 0x01"
   all_opts    1    "-shxopts 0x07"}}

#----------------------------------------------------------------------------
# Test cases shell9-2.*: Basic "dot" command, cross-line token parsing

set cmds ".print 'l1\nl2'\n.print 'a\\\nb'"
do_test shell9-2.1 {
  set res [catchcmd ":memory: -shxopts 1" $cmds]
} {0 {l1
l2
ab}}

set cmds " .print \"l1\nl2\"\n .print \"a\\\nb\" \n# c\n  ## c"
do_test shell9-2.2 {
  set res [catchcmd ":memory:" $cmds]
} {0 {l1
l2
ab}}

set cmds ".echo on\n.seeargs 'a'\\\n'b'\n#!"
do_test shell9-2.3 {
  set res [catchcmd ":memory:" $cmds]
} {0 {.seeargs 'a''b'
a|b|}}

set cmds ".echo on\n.seeargs a\\\nb\n#!"
do_test shell9-2.4 {
  set res [catchcmd ":memory:" $cmds]
} {0 {.seeargs ab
ab|}}

set cmds ".echo 1\n.print \"\\\"\nq\\\"\""
do_test shell9-2.5 {
  set res [catchcmd ":memory: -shxopts 1" $cmds]
} {0 {.print "\"
q\""
"
q"}}

#----------------------------------------------------------------------------
# Test cases shell9-3.*: .parameter set options and types

set cmds {
.pa set -b $b x'a5a5'
.pa set -i $ii 33-11
.pa set -i $ir 3.3-1.1
.pa set -n $ni 3-1
.pa set -n $nr 3.3-1.1
.pa set -r $ri 1
.pa set -r $rr 1.2
.pa set -t $t 123
.mode list
select typeof(value) from temp.sqlite_parameters order by key;
}
do_test shell9-3.1 {
  set res [catchcmd ":memory:" $cmds]
} {0 {blob
integer
integer
integer
real
real
real
text}}

set cmds {
.pa set $expr 1 + 2 * 3
.pa set $text "'1 + 2*3'"
.pa set -t $ttext 1 + 2*3
.pa list
}
do_test shell9-3.2 {
  set res [catchcmd ":memory:" $cmds]
} {0 {Bindings:
name   value
$expr  7
$text  '1 + 2*3'
$ttext '1 + 2*3'}}

set cmds {
.var set a a
.var set b b
.var set c c
.var unset
.var list
.var clear a
.var list
.var unset b
.var list
.var clear
.var list
.var set d e
.var set e e
.var unset d e
.var list
}
do_test shell9-3.3 {
  set res [catchcmd ":memory:" $cmds]
} {0 {Scripts:
name value
a    'a'
b    'b'
c    'c'
Scripts:
name value
b    'b'
c    'c'
Scripts:
name value
c    'c'}}

if {$::tcl_platform(platform)=="unix"} {
  proc set_ed {what} {
    global env
    set env(VISUAL) "cp $what"
    return 1
  }
} elseif {$::tcl_platform(platform)=="windows"} {
  proc set_ed {what} {
    global env
    set env(VISUAL) "copy $what >nul"
    return 1
  }
} else { return 0 }

if {[set_ed query.txt]} {
  set cmds {
.once query.txt
.print SELECT @name ;
.pa set @name Fido
.var edit -t dog
.x dog
}
  do_test shell9-3.4 {
    set res [catchcmd ":memory: -quiet 1 -interactive" $cmds]
    list [lindex $res 0] [string trimright [lindex $res 1]]
  } {0 Fido}
}

#----------------------------------------------------------------------------
# Test cases shell9-4.*: .parameter and .vars save/load operation

set cmds {
  .pa set -t $t 'tt'
  .pa set -i $n 7
  .pa save xn.db
  .pa save x.db $x
  .pa clear
  .pa load xn.db
  .pa list
  .pa clear
  .pa load x.db
  .pa list
  .pa clear
  .pa load xn.db $n
  .pa list
}
do_test shell9-4.1 {
  set res [catchcmd ":memory:" $cmds]
} {0 {Bindings:
name value
$n   7
$t   'tt'
Bindings:
name value
$n   7}}

set cmds {
  .var set t '.print t'
  .var set n 'select 7;'
  .var save xn.db
  .var save x.db x
  .var clear
  .var load xn.db
  .var list
  .var clear
  .var load x.db
  .var list
  .var clear
  .var load xn.db n
  .var list
}
do_test shell9-4.2 {
  set res [catchcmd ":memory:" $cmds]
} {0 {Scripts:
name value
n    'select 7;'
t    '.print t'
Scripts:
name value
n    'select 7;'}}

forcedelete x.db xn.db

#----------------------------------------------------------------------------
# Test cases shell9-5.*: Ensure "dot" commands and SQL intermix ok.

set cmds {
 .vars set mixed "
 .print Hi.
 select 'Hi.';
 .print 'Good\\
 Bye.'
 select 'Good'||
 ' Bye.';
 "
 .x mixed
}
do_test shell9-5.1 {
  set res [catchcmd ":memory:" $cmds]
} {0 {Hi.
Hi.
Good Bye.
Good Bye.}}

#----------------------------------------------------------------------------
# Test cases shell9-6.*: .x command operation and refusal
set cmds {
 .pa set -t $v '.print Nada'
 .var set v '.print Ok'
 .x v
 .x $v
}
do_test shell9-6.1 {
  set res [catchcmd ":memory: -bail" $cmds]
} {1 {Ok
Skipping badly named $v. Run ".help x"}}

finish_test