diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:51:01 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2017-01-03 21:51:01 (GMT) |
| commit | a780057cc1b51dd3a557549c3cf2431f09136c0d (patch) | |
| tree | 717f78052c55596449b27743171d7e170c4d39a0 /tkimg/xpm/tests | |
| parent | 7749430b9352c1eaf5dca7d8a89a6d35f565ef24 (diff) | |
| download | blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.zip blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.gz blt-a780057cc1b51dd3a557549c3cf2431f09136c0d.tar.bz2 | |
upgrade tkimg to 1.4.6
Diffstat (limited to 'tkimg/xpm/tests')
| -rw-r--r-- | tkimg/xpm/tests/all.tcl | 24 | ||||
| -rw-r--r-- | tkimg/xpm/tests/folder.xpm | 18 | ||||
| -rw-r--r-- | tkimg/xpm/tests/xpm.test | 46 |
3 files changed, 0 insertions, 88 deletions
diff --git a/tkimg/xpm/tests/all.tcl b/tkimg/xpm/tests/all.tcl deleted file mode 100644 index 672eef7..0000000 --- a/tkimg/xpm/tests/all.tcl +++ /dev/null @@ -1,24 +0,0 @@ -# all.tcl -- -*- tcl -*- -# -# Import common functionality, then run the tests in this directory. -# -# Copyright (c) 2002 Andreas Kupries <andreas_kupries@users.sourceforge.net> -# All rights reserved. -# -# RCS: @(#) $Id: all.tcl,v 1.1.1.1 2016/01/25 21:20:47 joye Exp $ - -set _pwd [pwd] -cd [file dirname [file join [pwd] [info script]]] -set _here [pwd] -cd $_pwd -source [file join [file dirname [file dirname $_here]] tests all.tcl] -unset _pwd _here - -set ::tcltest::testSingleFile false -set ::tcltest::testsDirectory [file dirname [info script]] - -# We need to ensure that the testsDirectory is absolute -::tcltest::normalizePath ::tcltest::testsDirectory - -run_tests -exit diff --git a/tkimg/xpm/tests/folder.xpm b/tkimg/xpm/tests/folder.xpm deleted file mode 100644 index 44ba7ae..0000000 --- a/tkimg/xpm/tests/folder.xpm +++ /dev/null @@ -1,18 +0,0 @@ -/* XPM */ -static char * folder[] = { -"16 12 3 1", -" s None c None", -". c #000000", -"# c #f0ff80", -" .... ", -" .####. ", -" .######. ", -"............. ", -".###########. ", -".###########. ", -".###########. ", -".###########. ", -".###########. ", -".###########. ", -".###########. ", -"............. "};
\ No newline at end of file diff --git a/tkimg/xpm/tests/xpm.test b/tkimg/xpm/tests/xpm.test deleted file mode 100644 index c458e89..0000000 --- a/tkimg/xpm/tests/xpm.test +++ /dev/null @@ -1,46 +0,0 @@ -# This file is a Tcl script to test out GIF reading and writing. -# It is organized in the standard fashion for Tcl tests. -# - -puts "img::xpm [package require img::xpm]" - -set xpmdata \ -{/* XPM */ -static char * InlineData[] = { -"16 12 3 1", -" s None c None", -". c #000000", -"# c #f0ff80", -" .... ", -" .####. ", -" .######. ", -"............. ", -".###########. ", -".###########. ", -".###########. ", -".###########. ", -".###########. ", -".###########. ", -".###########. ", -"............. "};} - -test xpm-1.1 {} { - catch {image delete i} - image create photo i -file [file join $tcltest::testsDirectory folder.xpm] - i data -format xpm -} $xpmdata -test xpm-1.2 {} { - catch {image delete i} - image create photo i -data $xpmdata - set data [i data -format xpm] -} $xpmdata -test xpm-1.3 {} { - i blank - i put $data - set data [i data -format xpm] -} $xpmdata -test xpm-1.4 {} { - i blank - i put $data -format xpm - set data [i data -format xpm] -} $xpmdata |