test/unhex.test

   1 # 2023 January 23
   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 #
  12
  13 set testdir [file dirname $argv0]
  14 source [file join $testdir tester.tcl]
  15
  16 set testprefix unhex
  17
  18
  19 foreach {tn hex} {
  20   1  0000
  21   2  FFFF
  22   3  0123456789ABCDEF
  23 } {
  24   do_execsql_test 1.$tn.1 {
  25     SELECT hex( unhex( $hex ) );
  26   } $hex
  27
  28   do_execsql_test 1.$tn.2 {
  29     SELECT hex( unhex( lower( $hex ) ) );
  30   } $hex
  31 }
  32
  33 do_execsql_test 2.0 {
  34   SELECT typeof( unhex('') ), length( unhex('') );
  35 } {blob 0}
  36
  37 foreach {tn hex} {
  38   1  ABC
  39   2  hello
  40   3  123456x7
  41   4  0xff
  42 } {
  43   do_execsql_test 2.$tn {
  44     SELECT unhex( $hex ) IS NULL;
  45   } 1
  46 }
  47
  48 do_catchsql_test 3.0 {
  49   SELECT unhex();
  50 } {1 {wrong number of arguments to function unhex()}}
  51 do_catchsql_test 3.1 {
  52   SELECT unhex('ABCD', '1234', '');
  53 } {1 {wrong number of arguments to function unhex()}}
  54
  55 #--------------------------------------------------------------------------
  56 # Test the 2-argument version.
  57 #
  58 foreach {tn hex} {
  59   1 "FFFF  ABCD"
  60   2 "FFFF ABCD"
  61   3 "FFFFABCD "
  62   4 " FFFFABCD"
  63   5 "--FFFF AB- -CD- "
  64   6 "--"
  65   7 " --"
  66 } {
  67   set out ""
  68   foreach x [split $hex ""] {
  69     if {[string is xdigit $x]} { append out $x }
  70   }
  71
  72   do_execsql_test 5.$tn.1 {
  73     SELECT hex( unhex($hex, ' -') );
  74   } [list $out]
  75 }
  76
  77 do_execsql_test 6.0 {
  78   SELECT typeof( unhex(' ', ' -') ), length( unhex('-', ' -') );
  79 } {blob 0}
  80
  81
  82 do_execsql_test 6.1 "
  83   SELECT hex( unhex('\u0E01ABCD\u0E02', '\uE01\uE02') )
  84 " {ABCD}
  85 do_execsql_test 6.2 "
  86   SELECT typeof( unhex('\u0E01ABCD\u0E02', '\uE03\uE02') )
  87 " {null}
  88 do_execsql_test 6.3 "
  89   SELECT hex( unhex('\u0E01AB CD\uE02\uE01', '\uE01 \uE02') )
  90 " {ABCD}
  91
  92 #--------------------------------------------------------------------------
  93 # Test that if either argument is NULL, the returned value is also NULL.
  94 #
  95 do_execsql_test 6.4.1 { SELECT typeof(unhex(NULL)) } {null}
  96 do_execsql_test 6.4.2 { SELECT typeof(unhex(NULL, ' ')) } {null}
  97 do_execsql_test 6.4.3 { SELECT typeof(unhex('1234', NULL)) } {null}
  98
  99
 100 finish_test
 101
 102