1 $! VMS_EXPORT_SYMBOL_TEST.COM
3 $! Verify the VMS_EXPORT_SYMBOL.C module
5 $! 22-May-2014 J. Malmberg
7 $!=========================================================================
9 $ cc/names=(as_is)/define=(DEBUG=1,_POSIX_EXIT=1) vms_export_symbol.c
11 $ link vms_export_symbol
13 $ delete vms_export_symbol.obj;*
15 $! Need a foreign command to test.
16 $ vms_export_symbol := $sys$disk:[]vms_export_symbol.exe
17 $ save_export_symbol = vms_export_symbol
22 $ write sys$output "Test program failed!";
25 $ if vms_export_symbol .nes. save_export_symbol
27 $ write sys$output "Test failed to restore foreign command!"
29 $ if f$type(test_export_symbol) .nes. ""
31 $ write sys$output "Test failed to clear exported symbol!"
33 $ if f$type(test_putenv_symbol) .nes. ""
35 $ write sys$output "Test failed to clear putenv exported symbol!"