diff options
Diffstat (limited to 'src/lib/libssl/test/bctest.com')
-rw-r--r-- | src/lib/libssl/test/bctest.com | 152 |
1 files changed, 0 insertions, 152 deletions
diff --git a/src/lib/libssl/test/bctest.com b/src/lib/libssl/test/bctest.com deleted file mode 100644 index d7e5ec139e..0000000000 --- a/src/lib/libssl/test/bctest.com +++ /dev/null | |||
@@ -1,152 +0,0 @@ | |||
1 | $! | ||
2 | $! Check operation of "bc". | ||
3 | $! | ||
4 | $! 2010-04-05 SMS. New. Based (loosely) on "bctest". | ||
5 | $! | ||
6 | $! | ||
7 | $ tmp_file_name = "tmp.bctest" | ||
8 | $ failure = "" | ||
9 | $! | ||
10 | $! Basic command test. | ||
11 | $! | ||
12 | $ on warning then goto bc_fail | ||
13 | $ bc | ||
14 | $ on error then exit | ||
15 | $! | ||
16 | $! Test for SunOS 5.[78] bc bug. | ||
17 | $! | ||
18 | $ if (failure .eqs. "") | ||
19 | $ then | ||
20 | $! | ||
21 | $ define /user_mode sys$output 'tmp_file_name' | ||
22 | $ bc | ||
23 | obase=16 | ||
24 | ibase=16 | ||
25 | a=AD88C418F31B3FC712D0425001D522B3AE9134FF3A98C13C1FCC1682211195406C1A6C66C6A\ | ||
26 | CEEC1A0EC16950233F77F1C2F2363D56DD71A36C57E0B2511FC4BA8F22D261FE2E9356D99AF57\ | ||
27 | 10F3817C0E05BF79C423C3F66FDF321BE8D3F18F625D91B670931C1EF25F28E489BDA1C5422D1\ | ||
28 | C3F6F7A1AD21585746ECC4F10A14A778AF56F08898E965E9909E965E0CB6F85B514150C644759\ | ||
29 | 3BE731877B16EA07B552088FF2EA728AC5E0FF3A23EB939304519AB8B60F2C33D6BA0945B66F0\ | ||
30 | 4FC3CADF855448B24A9D7640BCF473E | ||
31 | b=DCE91E7D120B983EA9A104B5A96D634DD644C37657B1C7860B45E6838999B3DCE5A555583C6\ | ||
32 | 9209E41F413422954175A06E67FFEF6746DD652F0F48AEFECC3D8CAC13523BDAAD3F5AF4212BD\ | ||
33 | 8B3CD64126E1A82E190228020C05B91C8B141F1110086FC2A4C6ED631EBA129D04BB9A19FC53D\ | ||
34 | 3ED0E2017D60A68775B75481449 | ||
35 | (a/b)*b + (a%b) - a | ||
36 | $ status = $status | ||
37 | $ output_expected = "0" | ||
38 | $ gosub check_output | ||
39 | $ if (output .ne. 1) | ||
40 | $ then | ||
41 | $ failure = "SunOStest" | ||
42 | $ else | ||
43 | $ delete 'f$parse( tmp_file_name)' | ||
44 | $ endif | ||
45 | $ endif | ||
46 | $! | ||
47 | $! Test for SCO bc bug. | ||
48 | $! | ||
49 | $ if (failure .eqs. "") | ||
50 | $ then | ||
51 | $! | ||
52 | $ define /user_mode sys$output 'tmp_file_name' | ||
53 | $ bc | ||
54 | obase=16 | ||
55 | ibase=16 | ||
56 | -FFDD63BA1A4648F0D804F8A1C66C53F0D2110590E8A3907EC73B4AEC6F15AC177F176F2274D2\ | ||
57 | 9DC8022EA0D7DD3ABE9746D2D46DD3EA5B5F6F69DF12877E0AC5E7F5ADFACEE54573F5D256A06\ | ||
58 | 11B5D2BC24947724E22AE4EC3FB0C39D9B4694A01AFE5E43B4D99FB9812A0E4A5773D8B254117\ | ||
59 | 1239157EC6E3D8D50199 * -FFDD63BA1A4648F0D804F8A1C66C53F0D2110590E8A3907EC73B4\ | ||
60 | AEC6F15AC177F176F2274D29DC8022EA0D7DD3ABE9746D2D46DD3EA5B5F6F69DF12877E0AC5E7\ | ||
61 | F5ADFACEE54573F5D256A0611B5D2BC24947724E22AE4EC3FB0C39D9B4694A01AFE5E43B4D99F\ | ||
62 | B9812A0E4A5773D8B2541171239157EC6E3D8D50199 - FFBACC221682DA464B6D7F123482522\ | ||
63 | 02EDAEDCA38C3B69E9B7BBCD6165A9CD8716C4903417F23C09A85B851961F92C217258CEEB866\ | ||
64 | 85EFCC5DD131853A02C07A873B8E2AF2E40C6D5ED598CD0E8F35AD49F3C3A17FDB7653E4E2DC4\ | ||
65 | A8D23CC34686EE4AD01F7407A7CD74429AC6D36DBF0CB6A3E302D0E5BDFCD048A3B90C1BE5AA8\ | ||
66 | E16C3D5884F9136B43FF7BB443764153D4AEC176C681B078F4CC53D6EB6AB76285537DDEE7C18\ | ||
67 | 8C72441B52EDBDDBC77E02D34E513F2AABF92F44109CAFE8242BD0ECBAC5604A94B02EA44D43C\ | ||
68 | 04E9476E6FBC48043916BFA1485C6093603600273C9C33F13114D78064AE42F3DC466C7DA543D\ | ||
69 | 89C8D71 | ||
70 | AD534AFBED2FA39EE9F40E20FCF9E2C861024DB98DDCBA1CD118C49CA55EEBC20D6BA51B2271C\ | ||
71 | 928B693D6A73F67FEB1B4571448588B46194617D25D910C6A9A130CC963155CF34079CB218A44\ | ||
72 | 8A1F57E276D92A33386DDCA3D241DB78C8974ABD71DD05B0FA555709C9910D745185E6FE108E3\ | ||
73 | 37F1907D0C56F8BFBF52B9704 % -E557905B56B13441574CAFCE2BD257A750B1A8B2C88D0E36\ | ||
74 | E18EF7C38DAC80D3948E17ED63AFF3B3467866E3B89D09A81B3D16B52F6A3C7134D3C6F5123E9\ | ||
75 | F617E3145BBFBE9AFD0D6E437EA4FF6F04BC67C4F1458B4F0F47B64 - 1C2BBBB19B74E86FD32\ | ||
76 | 9E8DB6A8C3B1B9986D57ED5419C2E855F7D5469E35E76334BB42F4C43E3F3A31B9697C171DAC4\ | ||
77 | D97935A7E1A14AD209D6CF811F55C6DB83AA9E6DFECFCD6669DED7171EE22A40C6181615CAF3F\ | ||
78 | 5296964 | ||
79 | $ status = $status | ||
80 | $ output_expected = "0\0" | ||
81 | $ gosub check_output | ||
82 | $ if (output .ne. 1) | ||
83 | $ then | ||
84 | $ failure = "SCOtest" | ||
85 | $ else | ||
86 | $ delete 'f$parse( tmp_file_name)' | ||
87 | $ endif | ||
88 | $ endif | ||
89 | $! | ||
90 | $! Test for working 'print' command. | ||
91 | $! | ||
92 | $ if (failure .eqs. "") | ||
93 | $ then | ||
94 | $! | ||
95 | $ define /user_mode sys$output 'tmp_file_name' | ||
96 | $ bc | ||
97 | print "OK" | ||
98 | $ status = $status | ||
99 | $ output_expected = "OK" | ||
100 | $ gosub check_output | ||
101 | $ if (output .ne. 1) | ||
102 | $ then | ||
103 | $ failure = "printtest" | ||
104 | $ else | ||
105 | $ delete 'f$parse( tmp_file_name)' | ||
106 | $ endif | ||
107 | $ endif | ||
108 | $! | ||
109 | $ if (failure .nes. "") | ||
110 | $ then | ||
111 | $ write sys$output - | ||
112 | "No working bc found. Consider installing GNU bc." | ||
113 | $ exit %X00030000 ! %DCL-W-NORMAL | ||
114 | $ endif | ||
115 | $! | ||
116 | $ exit | ||
117 | $! | ||
118 | $! | ||
119 | $! Complete "bc" command failure. | ||
120 | $! | ||
121 | $ bc_fail: | ||
122 | $ write sys$output - | ||
123 | "No ""bc"" program/symbol found. Consider installing GNU bc." | ||
124 | $ exit %X00030000 ! %DCL-W-NORMAL | ||
125 | $! | ||
126 | $! | ||
127 | $! Output check subroutine. | ||
128 | $! | ||
129 | $ check_output: | ||
130 | $ eof = 0 | ||
131 | $ line_nr = 0 | ||
132 | $ open /read tmp_file 'tmp_file_name' | ||
133 | $ c_o_loop: | ||
134 | $ read /error = error_read tmp_file line | ||
135 | $ goto ok_read | ||
136 | $ error_read: | ||
137 | $ eof = 1 | ||
138 | $ ok_read: | ||
139 | $ line_expected = f$element( line_nr, "\", output_expected) | ||
140 | $ line_nr = line_nr+ 1 | ||
141 | $ if ((line_expected .nes. "\") .and. (.not. eof) .and. - | ||
142 | (line_expected .eqs. line)) then goto c_o_loop | ||
143 | $! | ||
144 | $ if ((line_expected .eqs. "\") .and. eof) | ||
145 | $ then | ||
146 | $ output = 1 | ||
147 | $ else | ||
148 | $ output = 0 | ||
149 | $ endif | ||
150 | $ close tmp_file | ||
151 | $ return | ||
152 | $! | ||