[thirdparty/openssl.git] / test / bctest.com

$!
$! Check operation of "bc".
$!
$! 2010-04-05 SMS.  New.  Based (loosely) on "bctest".
$!
$!
$ tmp_file_name = "tmp.bctest"
$ failure = ""
$!
$! Basic command test.
$!
$ on warning then goto bc_fail
$ bc
$ on error then exit
$!
$! Test for SunOS 5.[78] bc bug.
$!
$ if (failure .eqs. "")
$ then
$!
$     define /user_mode sys$output 'tmp_file_name'
$     bc
obase=16
ibase=16
a=AD88C418F31B3FC712D0425001D522B3AE9134FF3A98C13C1FCC1682211195406C1A6C66C6A\
CEEC1A0EC16950233F77F1C2F2363D56DD71A36C57E0B2511FC4BA8F22D261FE2E9356D99AF57\
10F3817C0E05BF79C423C3F66FDF321BE8D3F18F625D91B670931C1EF25F28E489BDA1C5422D1\
C3F6F7A1AD21585746ECC4F10A14A778AF56F08898E965E9909E965E0CB6F85B514150C644759\
3BE731877B16EA07B552088FF2EA728AC5E0FF3A23EB939304519AB8B60F2C33D6BA0945B66F0\
4FC3CADF855448B24A9D7640BCF473E
b=DCE91E7D120B983EA9A104B5A96D634DD644C37657B1C7860B45E6838999B3DCE5A555583C6\
9209E41F413422954175A06E67FFEF6746DD652F0F48AEFECC3D8CAC13523BDAAD3F5AF4212BD\
8B3CD64126E1A82E190228020C05B91C8B141F1110086FC2A4C6ED631EBA129D04BB9A19FC53D\
3ED0E2017D60A68775B75481449
(a/b)*b + (a%b) - a
$     status = $status
$     output_expected = "0"
$     gosub check_output
$     if (output .ne. 1)
$     then
$         failure = "SunOStest"
$     else
$         delete 'f$parse( tmp_file_name)'
$     endif
$ endif
$!
$! Test for SCO bc bug.
$!
$ if (failure .eqs. "")
$ then
$!
$     define /user_mode sys$output 'tmp_file_name'
$     bc
obase=16
ibase=16
-FFDD63BA1A4648F0D804F8A1C66C53F0D2110590E8A3907EC73B4AEC6F15AC177F176F2274D2\
9DC8022EA0D7DD3ABE9746D2D46DD3EA5B5F6F69DF12877E0AC5E7F5ADFACEE54573F5D256A06\
11B5D2BC24947724E22AE4EC3FB0C39D9B4694A01AFE5E43B4D99FB9812A0E4A5773D8B254117\
1239157EC6E3D8D50199 * -FFDD63BA1A4648F0D804F8A1C66C53F0D2110590E8A3907EC73B4\
AEC6F15AC177F176F2274D29DC8022EA0D7DD3ABE9746D2D46DD3EA5B5F6F69DF12877E0AC5E7\
F5ADFACEE54573F5D256A0611B5D2BC24947724E22AE4EC3FB0C39D9B4694A01AFE5E43B4D99F\
B9812A0E4A5773D8B2541171239157EC6E3D8D50199 - FFBACC221682DA464B6D7F123482522\
02EDAEDCA38C3B69E9B7BBCD6165A9CD8716C4903417F23C09A85B851961F92C217258CEEB866\
85EFCC5DD131853A02C07A873B8E2AF2E40C6D5ED598CD0E8F35AD49F3C3A17FDB7653E4E2DC4\
A8D23CC34686EE4AD01F7407A7CD74429AC6D36DBF0CB6A3E302D0E5BDFCD048A3B90C1BE5AA8\
E16C3D5884F9136B43FF7BB443764153D4AEC176C681B078F4CC53D6EB6AB76285537DDEE7C18\
8C72441B52EDBDDBC77E02D34E513F2AABF92F44109CAFE8242BD0ECBAC5604A94B02EA44D43C\
04E9476E6FBC48043916BFA1485C6093603600273C9C33F13114D78064AE42F3DC466C7DA543D\
89C8D71
AD534AFBED2FA39EE9F40E20FCF9E2C861024DB98DDCBA1CD118C49CA55EEBC20D6BA51B2271C\
928B693D6A73F67FEB1B4571448588B46194617D25D910C6A9A130CC963155CF34079CB218A44\
8A1F57E276D92A33386DDCA3D241DB78C8974ABD71DD05B0FA555709C9910D745185E6FE108E3\
37F1907D0C56F8BFBF52B9704 % -E557905B56B13441574CAFCE2BD257A750B1A8B2C88D0E36\
E18EF7C38DAC80D3948E17ED63AFF3B3467866E3B89D09A81B3D16B52F6A3C7134D3C6F5123E9\
F617E3145BBFBE9AFD0D6E437EA4FF6F04BC67C4F1458B4F0F47B64 - 1C2BBBB19B74E86FD32\
9E8DB6A8C3B1B9986D57ED5419C2E855F7D5469E35E76334BB42F4C43E3F3A31B9697C171DAC4\
D97935A7E1A14AD209D6CF811F55C6DB83AA9E6DFECFCD6669DED7171EE22A40C6181615CAF3F\
5296964
$     status = $status
$     output_expected = "0\0"
$     gosub check_output
$     if (output .ne. 1)
$     then
$         failure = "SCOtest"
$     else
$         delete 'f$parse( tmp_file_name)'
$     endif
$ endif
$!
$! Test for working 'print' command.
$!
$ if (failure .eqs. "")
$ then
$!
$     define /user_mode sys$output 'tmp_file_name'
$     bc
print "OK"
$     status = $status
$     output_expected = "OK"
$     gosub check_output
$     if (output .ne. 1)
$     then
$         failure = "printtest"
$     else
$         delete 'f$parse( tmp_file_name)'
$     endif
$ endif
$!
$ if (failure .nes. "")
$ then
$     write sys$output -
       "No working bc found.  Consider installing GNU bc."
$     exit %X00030000 ! %DCL-W-NORMAL
$ endif
$!
$ exit
$!
$!
$! Complete "bc" command failure.
$!
$ bc_fail:
$ write sys$output -
   "No ""bc"" program/symbol found.  Consider installing GNU bc."
$ exit %X00030000 ! %DCL-W-NORMAL
$!
$!
$! Output check subroutine.
$!
$ check_output:
$     eof = 0
$     line_nr = 0
$     open /read tmp_file 'tmp_file_name'
$     c_o_loop:
$         read /error = error_read tmp_file line
$         goto ok_read
$         error_read:
$         eof = 1
$         ok_read:
$         line_expected = f$element( line_nr, "\", output_expected)
$         line_nr = line_nr+ 1
$     if ((line_expected .nes. "\") .and. (.not. eof) .and. -
       (line_expected .eqs. line)) then goto c_o_loop
$!
$     if ((line_expected .eqs. "\") .and. eof)
$     then
$         output = 1
$     else
$         output = 0
$     endif
$     close tmp_file
$ return
$!
Commit	Line	Data
aa292058 RL	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	$!