diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-07 20:02:26 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-07 20:02:26 (GMT) |
commit | dd7ebc578d780f789cf3a15f249c8a874faf79e3 (patch) | |
tree | fb96917e1f49ca7bcef7efc1107c1306f604a471 /tkhtml1/tests/html2.test | |
parent | 40254c18e6e39a5d7b83ec6bebf5506851309eb7 (diff) | |
download | blt-dd7ebc578d780f789cf3a15f249c8a874faf79e3.zip blt-dd7ebc578d780f789cf3a15f249c8a874faf79e3.tar.gz blt-dd7ebc578d780f789cf3a15f249c8a874faf79e3.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} |