eliminate explicit paths from smoke test results, correcting example_…

…shebang.cmd and #!icon.cmd
eschen42 · Aug 11, 2021 · dcb4a5f · dcb4a5f
1 parent 8b5b1e1
commit dcb4a5f
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 4 deletions.
diff --git a/examples/#!icon.cmd b/examples/#!icon.cmd
@@ -1 +1,16 @@
-@type %~dpnsx1| call %~dps0\..\icon.cmd - %* 
+@echo off
+setlocal
+set ARGS=
+set ARG0=%~dps0
+set ARG1dpnsx=%~dpnsx1
+shift
+
+:more_args
+  set ARG=%1
+  if not defined ARG goto got_args
+  set ARGS=%ARGS% %ARG%
+  shift
+goto more_args
+
+:got_args
+type %ARG1dpnsx% | call %ARG0%\..\icon.cmd - %ARGS%
diff --git a/examples/example_shebang.cmd b/examples/example_shebang.cmd
@@ -5,7 +5,6 @@
 procedure main(args)
   every write(!args)
   every write(&features)
-  write(&progname)
   write(&version)
 end
 
diff --git a/examples/smoke_test.output.expected.txt b/examples/smoke_test.output.expected.txt
@@ -123,7 +123,6 @@ system function
 Icon-2 Version 9.3.2.  February 20, 1999
 
 -------  Test eight  -  Shebang example [8]  ---------
-C:\Users\art\src\portable_icon_932\examples\example_shebang.cmd
 eight
 is
 enough
@@ -136,7 +135,6 @@ external functions
 keyboard functions
 large integers
 system function
-C:\Users\art\src\PORTAB~1\examples\-.bat
 Icon-2 Version 9.3.2.  February 20, 1999
 
 -------  Test nine  -  icon invokes icont and iconx [9]  ---------