Fossil

Check-in [2fbbd4f6]
Login

Check-in [2fbbd4f6]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Skip test 'th1-tcl2' if the SQLite package for Tcl is not available.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2fbbd4f61d5c8bfe7ff8fbd804ac7f81496dfe7e
User & Date: mistachkin 2016-01-11 21:08:27
Context
2016-01-11
21:09
Allow the 'th1' test file to fully pass with or without the 'tcl' and 'th1-hooks' settings enabled. ... (check-in: a9dc33d4 user: mistachkin tags: trunk)
21:08
Skip test 'th1-tcl2' if the SQLite package for Tcl is not available. ... (check-in: 2fbbd4f6 user: mistachkin tags: trunk)
19:59
Use absolute path for the Tcl private stubs directory in 'configure'. ... (check-in: 39f53e08 user: mistachkin tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to test/th1-tcl.test.
︙︙
60
61
62
63
64
65
66

67
68
69
70



71
72
73
74
75
76
77

4
\d+
one_word
three words now$} [normalize_result]]}

###############################################################################


fossil test-th-render --open-config \
    [file nativename [file join $dir th1-tcl2.txt]]

test th1-tcl-2 {[regexp -- {^\d+$} [normalize_result]]}




###############################################################################

fossil test-th-render --open-config \
    [file nativename [file join $dir th1-tcl3.txt]]

test th1-tcl-3 {$RESULT eq {<hr><p class="thmainError">ERROR:\








>
|
|

|
>
>
>








60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81

4
\d+
one_word
three words now$} [normalize_result]]}

###############################################################################

if {[catch {package require sqlite3}] == 0} {
  fossil test-th-render --open-config \
      [file nativename [file join $dir th1-tcl2.txt]]

  test th1-tcl-2 {[regexp -- {^\d+$} [normalize_result]]}
} else {
  puts stderr "Skipping 'th1-tcl-2', SQLite package for Tcl not available"
}

###############################################################################

fossil test-th-render --open-config \
    [file nativename [file join $dir th1-tcl3.txt]]

test th1-tcl-3 {$RESULT eq {<hr><p class="thmainError">ERROR:\
︙︙