File: tests.com

package info (click to toggle)
sox 12.16-6
  • links: PTS
  • area: main
  • in suites: potato
  • size: 1,180 kB
  • ctags: 1,466
  • sloc: ansic: 16,658; sh: 2,071; makefile: 126
file content (41 lines) | stat: -rw-r--r-- 1,273 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
$   FVER = 'F$VERIFY(0)'
$ !
$ ! test files
$ ! SOX Test script.  This should run without access violating or printing
$ ! any messages.
$ !
$ ! VMS translation of tests.shr
$ !
$ ! Modification History
$ ! 14 Dec 1992, K. S. Kubo, Created
$ !
$ ! NOTES:
$ !	Does not support the voc test w/o checksum and rate byte.
$ !
$   FILE 	= "monkey"
$   PROC_PATH	= F$Environment("PROCEDURE")
$   SOX		= "$ " + F$Parse(PROC_PATH,,,"DEVICE") + -
	F$Parse(PROC_PATH,,,"DIRECTORY") + "SOX"
$ !
$ ! verbose option -- uncomment the following line
$ ! SOX		= SOX + " ""-V"""
$ !
$   ON ERROR THEN GOTO COM_EXIT
$   ON SEVERE THEN GOTO COM_EXIT
$   ON WARNING THEN CONTINUE
$   DELETE/NOLOG ub.raw;*, sb.raw;*, ub2.raw;*, ub2.voc;*, ub.au;*, ub2.sf;*
$   SOX 'FILE'.voc ub.raw
$   SOX -t raw -r 8196 -u -b -c 1 ub.raw -r 8196 -s -b sb.raw
$   SOX -t raw -r 8196 -s -b -c 1 sb.raw -r 8196 -u -b ub2.raw
$   SOX -r 8196 -u -b -c 1 ub2.raw -r 8196 ub2.voc 
$   DIFF/MODE=HEX ub.raw ub2.raw
$   DELETE/NOLOG ub.raw;*, sb.raw;*, ub2.raw;*, ub2.voc;*
$   SOX 'FILE'.au -u -r 8192 -u -b ub.raw
$   SOX -r 8192 -u -b ub.raw -U -b ub.au 
$   SOX ub.au -u ub2.raw 
$   SOX ub.au -w ub2.sf
$   DELETE/NOLOG ub.raw;*, ub.au;*, ub2.raw;*, ub2.sf;*
$ !
$ COM_EXIT:
$   FVER = F$VERIFY('FVER')
$   EXIT