diff options
author | Raymond Lu <songyulu@hdfgroup.org> | 2009-08-19 21:46:16 (GMT) |
---|---|---|
committer | Raymond Lu <songyulu@hdfgroup.org> | 2009-08-19 21:46:16 (GMT) |
commit | 7b0b5ebf567ae8d01180bb88d68377fad933649d (patch) | |
tree | 6368607e1c508d6e2c13c52b030b265ae2cea51b | |
parent | 709b497b970a30eeb600c0aa75073c668c215f6a (diff) | |
download | hdf5-7b0b5ebf567ae8d01180bb88d68377fad933649d.zip hdf5-7b0b5ebf567ae8d01180bb88d68377fad933649d.tar.gz hdf5-7b0b5ebf567ae8d01180bb88d68377fad933649d.tar.bz2 |
[svn-r17385] I corrected some paths.
Not tested yet.
-rw-r--r-- | vms/tools/h5jam/check_h5jam.com | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/vms/tools/h5jam/check_h5jam.com b/vms/tools/h5jam/check_h5jam.com index a1e02f2..50be903 100644 --- a/vms/tools/h5jam/check_h5jam.com +++ b/vms/tools/h5jam/check_h5jam.com @@ -16,16 +16,23 @@ $ ! $ ! This command file tests h5jam and h5unjam utilities. The command file has to $ ! run in the [hdf5-top.tools.testfiles] directory. $ ! +$ type sys$input + +=================================== + Testing h5jam utiltity +=================================== + $ ! $ ! Define h5jam, h5unjam and h5dump symbols $ ! $! set message/notext/nofacility/noidentification/noseverity $ current_dir = F$DIRECTRY() $ len = F$LENGTH(current_dir) -$ temp = F$EXTRACT(0, len-10, current_dir) +$ temp = F$EXTRACT(0, len-16, current_dir) $ h5dump_dir = temp + "H5DUMP]" $ h5dump :== $sys$disk:'h5dump_dir'h5dump.exe -$ h5jam_dir = temp + "H5JAM]" +$ temp2 = F$EXTRACT(0, len-11, current_dir) +$ h5jam_dir = temp2 + "]" $ h5jam :== $sys$disk:'h5jam_dir'h5jam.exe $ ! $ ! Define output for diff command that compares expected and actual |