diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-07 19:38:30 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-07 19:38:30 (GMT) |
commit | 917eac6db5489b4256a4ba42d89df60e80906894 (patch) | |
tree | fb96917e1f49ca7bcef7efc1107c1306f604a471 /tkhtml1/tests/html2.test | |
parent | 09e487f0e296d4f8b4d8f52913e0853cd6267ab1 (diff) | |
download | blt-917eac6db5489b4256a4ba42d89df60e80906894.zip blt-917eac6db5489b4256a4ba42d89df60e80906894.tar.gz blt-917eac6db5489b4256a4ba42d89df60e80906894.tar.bz2 |
update TEA 3.13
Diffstat (limited to 'tkhtml1/tests/html2.test')
-rw-r--r-- | tkhtml1/tests/html2.test | 100 |
1 files changed, 0 insertions, 100 deletions
diff --git a/tkhtml1/tests/html2.test b/tkhtml1/tests/html2.test deleted file mode 100644 index 79f42a9..0000000 --- a/tkhtml1/tests/html2.test +++ /dev/null @@ -1,100 +0,0 @@ -# -# Test script for the Tk HTML widget -# -wm withdraw . -if {[lsearch [namespace children] ::tcltest] == -1} { - source [file dirname $argv0]/engine.tcl - namespace import ::tcltest::* - cd [file dirname $argv0] -} - - -# in image to use for all GIFs. -# -image create photo nogifsm -data { - R0lGODdhEAAQAPEAAACQkADQ0PgAAAAAACwAAAAAEAAQAAACNISPacHtD4IQz80QJ60as25d - 3idKZdR0IIOm2ta0Lhw/Lz2S1JqvK8ozbTKlEIVYceWSjwIAO/// -} - -# A callback to handle image requests -# -proc ImageCmd {args} { - set fn [lindex $args 0] - if {[catch {image create photo -file $fn} img]} { - set img nogifsm - } - return $img -} - -# Free all images -# -proc FreeImages {} { - foreach img [image names] { - image delete $img - } -} - -# Create the HTML widget to use for all testing. -# -set h [tkhtml_test_widget] -$h config -imagecommand ImageCmd - -::tcltest::test html-2.1 { - A snapshot of Slashdot on Jan 29, 2000. -} { - set file page1/index.html - $h clear - set f [open $file r] - $h config -base $file - $h parse [read $f [file size $file]] - close $f - set r [::tcltest::user-result] - $h clear - FreeImages - return $r -} {2 pass} - -::tcltest::test html-2.2 { - A snapshot of a page from the Scriptics website on Jan 29, 2000. -} { - set file page2/index.html - $h clear - set f [open $file r] - $h config -base $file - $h parse [read $f [file size $file]] - close $f - set r [::tcltest::user-result] - $h clear - FreeImages - return $r -} {2 pass} - -::tcltest::test html-2.3 { - A snapshot of freshmeat on Jan 29, 2000 -} { - set file page4/index.html - $h clear - set f [open $file r] - $h config -base $file - $h parse [read $f [file size $file]] - close $f - set r [::tcltest::user-result] - $h clear - FreeImages - return $r -} {2 pass} - -::tcltest::test html-2.4 { - A slide show about mktclapp -} { - set file page3/index.html - $h clear - set f [open $file r] - $h config -base $file - $h parse [read $f [file size $file]] - close $f - set r [::tcltest::user-result] - $h clear - FreeImages - return $r -} {2 pass} |