Add support for showing test/suite version

Not very useful alone, but already good to read version of a test suite
or test, given that path is passed as well.

src/libexec/jattool-runtest

@@ -28,7 +28,9 @@ runtest() {
     #
     # Wrap in boilerplate and run test code in $1
     #
-    JAT__TEST_ID=$TestId jattool qrun "./test"
+    JAT__TEST_ID=$TestId \
+    JAT__TEST_VERSION=$TestVersion \
+        jattool qrun "./test"
 }
 
 JATS__PATH=${JATS__PATH:-/usr/share/jat/suite}
@@ -55,6 +57,7 @@ main() {
     local TestHome
     local TestTmp
     local TestId
+    local TestVersion
     local Timeout
     local keeptmp=false
     local es=0
@@ -83,6 +86,7 @@ main() {
     esac
     test -f "$TestHome/test" \
      || die "test body not found: $TestHome/test"
+    TestVersion=$(jattool tfind -f version "$TestHome")
     TestTmp=$(mktemp -dt jattool-runtest.XXXXXXXX)
     debug -v TestHome TestId TestTmp
     cp -ar "$TestHome"/* "$TestTmp" \

src/libexec/jattool-sfind

@@ -10,7 +10,8 @@ usage() {
         -- \
             "Discover test in suite located at PATH"                         \
         -o                                                                   \
-            "-f FMT     Print test name in format FMT. 'id' or 'path'."    \
+            "-f FMT     Print test name in format FMT. 'id', 'version' or"   \
+            "           'path'."                                             \
         --                                                                   \
             "Test body should consist of asserts and/or phases documented"   \
             "in jat.sh Shellfu module; use \`sfdoc jat\` to access its"    \
@@ -39,6 +40,7 @@ sprop() {
         sut_url)        dvalue="https://example.org/anonsut" ;;
         url)            dvalue="https://$(sprop domain)/$(sprop ns)" ;;
         format)         : ;;
+        version)        dvalue="0.0.0+0._jats_no_version_" ;;
         *)              warn "unknown property: $pname"; return 2 ;;
     esac
     pvalue=$(cat "$fpath" 2>/dev/null)
@@ -79,6 +81,9 @@ discover() {
                 path)
                     echo "$SuiteDir"
                     ;;
+                version)
+                    sprop version
+                    ;;
             esac
         done
 }

src/libexec/jattool-tfind

@@ -10,7 +10,8 @@ usage() {
         -- \
             "Discover all JATS tests under directory PATH."                  \
         -o                                                                   \
-            "-f FMT     Print test name in format FMT. 'id' or 'path'."
+            "-f FMT     Print test name in format FMT. 'id', 'version' or"   \
+            "           'path'."
 }
 
 discover() {
@@ -32,6 +33,7 @@ discover() {
             case $Fmt in
                 path) echo "$s_dir/$t_rpath" ;;
                 id) echo "$s_id$t_rpath"   ;;
+                version) jattool sfind -f version "$s_dir" ;;
             esac
         done
 }
@@ -60,7 +62,7 @@ main() {
     esac done
     FindDirs=("$@")
     case $Fmt in
-        id|path) : ;;
+        id|version|path) : ;;
         *) usage -w "unknown FMT: $Fmt" ;;
     esac
     debug -v FindDirs Fmt