source: project/release/4/endian-blob/trunk/tests/run.scm @ 16141

Last change on this file since 16141 was 16141, checked in by Ivan Raikov, 10 years ago

initial import of endian-blob

File size: 4.8 KB
Line 
1
2(use srfi-4 endian-blob test)
3
4
5(test-group "endian-blob test"
6
7            (test (sprintf "sint1 <-> endian-blob (MSB)")
8                  -40
9                  (endian-blob->sint1 (sint1->endian-blob -40 MSB)))
10
11            (test (sprintf "sint2 <-> endian-blob (MSB)")
12                  -4000
13                  (endian-blob->sint2 (sint2->endian-blob -4000 MSB)))
14
15            (test (sprintf "sint4 <-> endian-blob (MSB)")
16                  -40000
17                  (endian-blob->sint4 (sint4->endian-blob -40000 MSB)))
18
19            (test (sprintf "uint4 <-> endian-blob (MSB)")
20                  40000
21                  (endian-blob->uint4 (uint4->endian-blob 40000 MSB)))
22
23            (test (sprintf "ieee_float32 <-> endian-blob (MSB)")
24                  30.0
25                  (endian-blob->ieee_float32 (ieee_float32->endian-blob 30.0 MSB)))
26
27            (test (sprintf "ieee_float64 <-> endian-blob (MSB)")
28                  13.31
29                  (endian-blob->ieee_float64 (ieee_float64->endian-blob 13.31 MSB)))
30
31            (test (sprintf "s8vector <-> endian-blob (MSB)")
32                  (s8vector 1 -2 3 -4)
33                  (endian-blob->s8vector (s8vector->endian-blob (s8vector 1 -2 3 -4) MSB)))
34
35            (test (sprintf "s16vector <-> endian-blob (MSB)")
36                  (s16vector 100 -200 300 -400)
37                  (endian-blob->s16vector (s16vector->endian-blob (s16vector 100 -200 300 -400) MSB)))
38
39            (test (sprintf "s32vector <-> endian-blob (MSB)")
40                  (s32vector 100000 -200000 300000 -400000)
41                  (endian-blob->s32vector (s32vector->endian-blob (s32vector 100000 -200000 300000 -400000) MSB)))
42
43            (test (sprintf "u8vector <-> endian-blob (MSB)")
44                  (u8vector 1 2 3 4)
45                  (endian-blob->u8vector (u8vector->endian-blob (u8vector 1 2 3 4) MSB)))
46
47            (test (sprintf "u16vector <-> endian-blob (MSB)")
48                  (u16vector 100 200 300 400)
49                  (endian-blob->u16vector (u16vector->endian-blob (u16vector 100 200 300 400) MSB)))
50
51            (test (sprintf "s32vector <-> endian-blob (MSB)")
52                  (u32vector 100000 200000 300000 400000)
53                  (endian-blob->u32vector (u32vector->endian-blob (u32vector 100000 200000 300000 400000) MSB)))
54
55            (test (sprintf "f32vector <-> endian-blob (MSB)")
56                  (f32vector 100.0 200.1 300.2 400.3)
57                  (endian-blob->f32vector (f32vector->endian-blob (f32vector  100.0 200.1 300.2 400.3) MSB)))
58
59            (test (sprintf "f64vector <-> endian-blob (MSB)")
60                  (f64vector 10.01 21.12 32.23 43.34)
61                  (endian-blob->f64vector (f64vector->endian-blob (f64vector 10.01 21.12 32.23 43.34) MSB)))
62
63
64            (test (sprintf "sint1 <-> endian-blob (LSB)")
65                  -40
66                  (endian-blob->sint1 (sint1->endian-blob -40 LSB)))
67
68            (test (sprintf "sint2 <-> endian-blob (LSB)")
69                  -4000
70                  (endian-blob->sint2 (sint2->endian-blob -4000 LSB)))
71
72            (test (sprintf "sint4 <-> endian-blob (LSB)")
73                  -40000
74                  (endian-blob->sint4 (sint4->endian-blob -40000 LSB)))
75
76            (test (sprintf "uint4 <-> endian-blob (LSB)")
77                  40000
78                  (endian-blob->uint4 (uint4->endian-blob 40000 LSB)))
79
80            (test (sprintf "ieee_float32 <-> endian-blob (LSB)")
81                  30.0
82                  (endian-blob->ieee_float32 (ieee_float32->endian-blob 30.0 LSB)))
83
84            (test (sprintf "ieee_float64 <-> endian-blob (LSB)")
85                  13.31
86                  (endian-blob->ieee_float64 (ieee_float64->endian-blob 13.31 LSB)))
87
88            (test (sprintf "s8vector <-> endian-blob (LSB)")
89                  (s8vector 1 -2 3 -4)
90                  (endian-blob->s8vector (s8vector->endian-blob (s8vector 1 -2 3 -4) LSB)))
91
92            (test (sprintf "s16vector <-> endian-blob (LSB)")
93                  (s16vector 100 -200 300 -400)
94                  (endian-blob->s16vector (s16vector->endian-blob (s16vector 100 -200 300 -400) LSB)))
95
96            (test (sprintf "s32vector <-> endian-blob (LSB)")
97                  (s32vector 100000 -200000 300000 -400000)
98                  (endian-blob->s32vector (s32vector->endian-blob (s32vector 100000 -200000 300000 -400000) LSB)))
99
100            (test (sprintf "u8vector <-> endian-blob (LSB)")
101                  (u8vector 1 2 3 4)
102                  (endian-blob->u8vector (u8vector->endian-blob (u8vector 1 2 3 4) LSB)))
103
104            (test (sprintf "u16vector <-> endian-blob (LSB)")
105                  (u16vector 100 200 300 400)
106                  (endian-blob->u16vector (u16vector->endian-blob (u16vector 100 200 300 400) LSB)))
107
108            (test (sprintf "s32vector <-> endian-blob (LSB)")
109                  (u32vector 100000 200000 300000 400000)
110                  (endian-blob->u32vector (u32vector->endian-blob (u32vector 100000 200000 300000 400000) LSB)))
111
112            (test (sprintf "f32vector <-> endian-blob (LSB)")
113                  (f32vector 100.0 200.1 300.2 400.3)
114                  (endian-blob->f32vector (f32vector->endian-blob (f32vector  100.0 200.1 300.2 400.3) LSB)))
115
116            (test (sprintf "f64vector <-> endian-blob (LSB)")
117                  (f64vector 10.01 21.12 32.23 43.34)
118                  (endian-blob->f64vector (f64vector->endian-blob (f64vector 10.01 21.12 32.23 43.34) LSB)))
119
120           
121)
Note: See TracBrowser for help on using the repository browser.