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/tests/sgi.test | |
| 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/tests/sgi.test')
| -rwxr-xr-x | tkimg/tests/sgi.test | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/tkimg/tests/sgi.test b/tkimg/tests/sgi.test deleted file mode 100755 index 33b2c7e..0000000 --- a/tkimg/tests/sgi.test +++ /dev/null @@ -1,65 +0,0 @@ -# This file is a Tcl script to test out SGI reading and writing. -# It is organized in the standard fashion for Tcl tests. -# - -if {[string compare test [info procs test]] == 1} { - source defs -} - -set sgidata \ -{AdoBAQADABAADAADAAAAAAAAAP8AAAAAbm8gbmFtZQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAEJQAABAoAAAPvAAAD1AAAA7kAAAOe -AAADgwAAA3QAAANWAAADNQAAAyAAAARFAAAELgAABBMAAAP4AAAD3QAAA8IAAAOnAAADjAAA -A3kAAANgAAADQAAAAycAAARKAAAENwAABBwAAAQBAAAD5gAAA8sAAAOwAAADlQAAA34AAANq -AAADSwAAAy4AAAAFAAAACQAAAAkAAAAJAAAACQAAAAkAAAAJAAAACQAAAAUAAAAKAAAACwAA -AAcAAAAFAAAACQAAAAkAAAAJAAAACQAAAAkAAAAJAAAACQAAAAUAAAAKAAAACwAAAAcAAAAF -AAAACQAAAAkAAAAJAAAACQAAAAkAAAAJAAAACQAAAAUAAAAKAAAACwAAAAcD2QQACdkAA9kE -AAnZAAPZBAAJ2QCD2dkABPCBAAjZAIPZ2QAE/4EACNkAg9nZAASAgQAI2QCC2QAG8IEAB9kA -gtkABv+BAAfZAILZAAaAgQAH2QANAAPZAA0AA9kADQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCB -AAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCBAAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCB -AAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCBAAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCB -AAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCBAAuAgQAD2QCBAAvwgQAD2QCBAAv/gQAD2QCB -AAuAgQAD2QANAAPZAA0AA9kADQAD2QA=} - -test sgi-1.1 {} { - catch {image delete i} - image create photo i -file folder.rgb - i data -format sgi -} $sgidata -test sgi-1.2 {} { - catch {image delete i} - image create photo i -data $sgidata - set data [i data -format sgi] -} $sgidata -test sgi-1.3 {} { - i blank - i put $data - set data [i data -format sgi] -} $sgidata -test sgi-1.4 {} { - i blank - i put $data -format sgi - set data [i data -format sgi] -} $sgidata - -if {[info tclversion] < 8.0} { - return -} - - -test sgi-2.0 {Binary I/O with SGI images} { - i blank - set f [open folder.rgb r] - fconfigure $f -translation binary - set return [catch {i put [read $f]} msg] - close $f - lappend return $msg -} {0 {}} |