1# This file is a Tcl script to test out RAW reading and writing.
2# It is organized in the standard fashion for Tcl tests.
3#
4
5if {[string compare test [info procs test]] == 1} {
6    source defs
7}
8
9set rawdata \
10{TWFnaWM9UkFXCldpZHRoPTE2CkhlaWdodD0xMgpOdW1DaGFuPTMKQnl0ZU9yZGVyPUludGVs
11ClNjYW5PcmRlcj1Ub3BEb3duClBpeGVsVHlwZT1ieXRlCtnZ2dnZ2dnZ2QAAAAAAAAAAAAAA
12ANnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gAAAANnZ
132dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ
142dnZ2dnZ2dnZ2dnZ2dnZ2QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
15ANnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ
162dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAA
17APD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAPD/gPD/
18gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/
19gPD/gPD/gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/
20gPD/gPD/gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAPD/gPD/gPD/gPD/gPD/gPD/gPD/gPD/
21gPD/gPD/gPD/gAAAANnZ2dnZ2dnZ2QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
22AAAAAAAAANnZ2dnZ2dnZ2Q==}
23
24test raw-1.1 {} {
25    catch {image delete i}
26    image create photo i -file folder.raw
27    i data -format "raw -useheader true -nomap true -nchan 3"
28} $rawdata
29test raw-1.2 {} {
30    catch {image delete i}
31    image create photo i -data $rawdata
32    set data [i data -format "raw -useheader true -nomap true -nchan 3"]
33} $rawdata
34test raw-1.3 {} {
35    i blank
36    i put $rawdata
37    set data [i data -format "raw -useheader true -nomap true -nchan 3"]
38} $rawdata
39test raw-1.4 {} {
40    i blank
41    i put $rawdata -format raw
42    set data [i data -format "raw -useheader true -nomap true -nchan 3"]
43} $rawdata
44if {[info tclversion] < 8.0} {
45    return
46}
47
48test raw-2.0 {Binary I/O with RAW images} {
49    i blank
50    set f [open folder.raw r]
51    fconfigure $f -translation binary
52    set return [catch {i put [read $f]} msg]
53    close $f
54    lappend return $msg
55} {0 {}}
56