subcommand 1.0.2 → 1.0.3

data/tests/aggregate-results.sh

@@ -0,0 +1,34 @@
+#!/bin/sh
+
+fixed=0
+success=0
+failed=0
+broken=0
+total=0
+
+for file
+do
+	while read type value
+	do
+		case $type in
+		'')
+			continue ;;
+		fixed)
+			fixed=$(($fixed + $value)) ;;
+		success)
+			success=$(($success + $value)) ;;
+		failed)
+			failed=$(($failed + $value)) ;;
+		broken)
+			broken=$(($broken + $value)) ;;
+		total)
+			total=$(($total + $value)) ;;
+		esac
+	done <"$file"
+done
+
+printf "%-8s%d\n" fixed $fixed
+printf "%-8s%d\n" success $success
+printf "%-8s%d\n" failed $failed
+printf "%-8s%d\n" broken $broken
+printf "%-8s%d\n" total $total

data/tests/recreate.sh

@@ -0,0 +1,33 @@
+#!/bin/bash
+#*******************************************************#
+#                 recreate.sh
+#                 written by Rahul Kumar                #
+#                    2009/12/01                         #
+#  recreate a failed test - pass the name of the earlier#
+#  test program. In some cases, you may have to rename  #
+#  transcript.txt to the testcase since cp -i failes    #
+#*******************************************************#
+
+# oldfile is the old test cases such as t0001-add.sh
+oldfile="$1"
+[ ! -f "$oldfile" ] && { echo "Could not find $oldfile"; exit -1 ; }
+
+LOADSTR=
+if grep -q CATEOF "$oldfile"; then
+   sed -n '/<<CATEOF/,/^CATEOF/p' "$oldfile" | grep -v "CATEOF" > data.1
+   LOADSTR='--load data.1'
+   echo found data, saved as data.1
+   wc -l data.1
+fi
+str=$( echo "$oldfile" | sed 's/^t[0-9]*-//;s/.sh$//' )
+echo "Using suffix:$str"
+read -p "press enter "
+grep '^>>> ' "$oldfile" | sed 's/^>>> //' 
+read -p "press enter "
+grep '^>>> ' "$oldfile" | sed 's/^>>> //' | ./rtest2.sh $LOADSTR "$str"
+
+echo
+echo renaming old file with O prefix
+mv "$oldfile" O$oldfile
+echo "If you don't find a test case, then rename transcript.txt to $oldfile"
+echo "cp transcript.txt $oldfile"

data/tests/rtest2.sh

@@ -0,0 +1,127 @@
+#!/bin/bash
+#*******************************************************#
+#                       rtest2.sh                       #
+#                 written by Rahul Kumar                #
+#                    December 21, 2009                  #
+#                                                       #
+#                  generates a test case                #
+#*******************************************************#
+# @param - test descriptor - short name
+#+ will be used in test_desc and filename suffix
+#
+# If testing for error, and command returns 1
+#+ place "=== 1" on first line or result
+
+while [[ $1 = -* ]]; do
+case "$1" in                    
+   -L|--load)
+   # load a file containing TODO2.txt data to test against
+      dataset=../$2
+      shift
+      shift
+      ;;
+   *)
+      echo "Error: Unknown option: $1" >&2   # rem _
+      exit 1
+      ;;
+esac
+done
+
+if [[ -z "$1" ]]; then
+   echo -n "Test Description (short, no spaces): " 1>&2
+   read td
+else
+   td="$1"
+fi
+# for generating a serial number
+APP="subcommand-test"
+
+PS1=">>>"
+out="$(pwd)/transcript.txt"
+test_description="Testing of $td"
+filesuffix=$( echo "$td" | sed 's/ /_/g' )
+
+
+. ./test-lib.sh
+trap - EXIT
+if [[ ! -z "$dataset" ]]; then
+   if [[ ! -f "$dataset" ]]; then
+      echo "Can't find file $dataset"
+      exit 1
+   else
+      wc -l "$dataset"
+   fi
+fi
+if [[ ! -z "$dataset" ]]; then
+   cp "${dataset}" TODO2.txt
+   pre+=$( echo -e "cat > TODO2.txt <<CATEOF")
+   pre+="\n"
+   pre+=$(cat TODO2.txt)
+   pre+=$( echo -e "\nCATEOF\n" )
+fi
+str=""
+> "$out"
+
+history -r .rtest2.history
+## get user input, stop when user enters 'bye'
+while read -ep ">>> " line
+do
+#   echo -n ">>> "
+#   read line
+   [ -z "$line" ] && { echo "bye to quit"; continue; }
+   [[ "$line" = "bye" ]] && break;
+   [[ "$line" = "abort" ]] && exit 1;
+   [ -n "$line" ] && history -s "$line"
+
+   ## user can execute test_tick in current shell
+   [[ "$line" = *test_tick* ]] && {
+      times=$( expr "$line" : 'test_tick \(.*\)' )
+      # should be multiples of 86400 or at least more than 86400
+      test_tick $times;
+   }
+
+   if grep -q "^list" <<< "$line"; then
+      line=$( echo "$line" | sed 's/^list/t --sort-serial list/')
+   fi
+   if grep -q "^ls" <<< "$line"; then
+      line=$( echo "$line" | sed 's/^ls/t --sort-serial --no-colors list/')
+   fi
+   line=$(echo "$line" | sed 's/--ss /--sort-serial /')
+   line=$(echo "$line" | sed 's/--nc /--no-colors /')
+   #[[ "$line" = "list" ]] && line="t --sort-serial list";
+   #[[ "$line" = "ls" ]] && line="t --sort-serial --no-colors list";
+   line=$(echo "$line" | sed 's~^t ~ruby bin/subcommand ~')
+   echo ">>> $line" >> $out
+   eval "$line" | tee -a "$out"
+   # RK since old version stopped expect on blank line I've placed this marker
+   echo ">>> end" >> $out
+   #echo "" >> $out
+done
+
+## generate the test case transcript
+str="$( cat $out )"
+> "$out"
+cat > "$out" <<EOF
+#!/bin/sh
+test_description="Testing out $td "
+. ./test-lib.sh
+
+
+EOF
+echo -e "$pre" >> "$out"
+echo "" >> "$out"
+echo "test_todo_session \"Testing of $td\" <<EOF" >> "$out"
+echo "$str" >> "$out"
+echo "" >> "$out"
+echo "EOF" >> "$out"
+echo "test_done" >> "$out"
+
+# try to create a decent file name
+serno=$( get_serial_number -a "$APP" -d "../"  )
+serno=$( printf "%04s" "$serno" )
+filename="../t${serno}-${filesuffix}.sh"
+echo "trying to copy $out to $filename"
+chmod +x "$out"
+cp -i "$out" "$filename" < /dev/tty
+chmod +x "$filename"
+echo "Please rename $filename to prevent possible overwriting"

data/tests/t0001-main.sh

@@ -0,0 +1,51 @@
+#!/bin/sh
+test_description="Testing out main "
+. ./test-lib.sh
+
+
+
+
+test_todo_session "Testing of main" <<EOF
+>>> ruby bin/subcommand.rb help
+Usage: subcommand.rb [options] [subcommand [options]]
+Stupid program that does something
+
+Global options are:
+    -v, --[no-]verbose               Run verbosely
+
+Commands are:
+   foo : desc for foo
+   baz : desc for baz
+
+Aliases: 
+   goo - foo
+   bar - ["baz"]
+   boo - ["foo", "--force"]
+   zoo - ["foo", "ruby"]
+
+
+See 'bin/subcommand.rb help COMMAND' for more information on a specific command.
+>>> end
+>>> ruby bin/subcommand.rb --help
+Usage: subcommand.rb [options] [subcommand [options]]
+Stupid program that does something
+
+Global options are:
+    -v, --[no-]verbose               Run verbosely
+
+Commands are:
+   foo : desc for foo
+   baz : desc for baz
+
+Aliases: 
+   goo - foo
+   bar - ["baz"]
+   boo - ["foo", "--force"]
+   zoo - ["foo", "ruby"]
+
+
+See 'bin/subcommand.rb help COMMAND' for more information on a specific command.
+>>> end
+
+EOF
+test_done

data/tests/t0002-subcomm.sh

@@ -0,0 +1,21 @@
+#!/bin/sh
+test_description="Testing out subcomm "
+. ./test-lib.sh
+
+
+
+
+test_todo_session "Testing of subcomm" <<EOF
+>>> ruby bin/subcommand.rb help foo
+Usage: foo [options]
+desc for foo
+    -f, --[no-]force                 force verbosely
+>>> end
+>>> ruby bin/subcommand.rb foo --help
+Usage: foo [options]
+desc for foo
+    -f, --[no-]force                 force verbosely
+>>> end
+
+EOF
+test_done

data/tests/t0003-inv_comm.sh

@@ -0,0 +1,53 @@
+#!/bin/sh
+test_description="Testing out inv_comm "
+. ./test-lib.sh
+
+
+
+
+test_todo_session "Testing of inv_comm" <<EOF
+>>> ruby bin/subcommand.rb help fxxx
+Invalid command: fxxx.
+Usage: subcommand.rb [options] [subcommand [options]]
+Stupid program that does something
+
+Global options are:
+    -v, --[no-]verbose               Run verbosely
+
+Commands are:
+   foo : desc for foo
+   baz : desc for baz
+
+Aliases: 
+   goo - foo
+   bar - ["baz"]
+   boo - ["foo", "--force"]
+   zoo - ["foo", "ruby"]
+
+
+See 'bin/subcommand.rb help COMMAND' for more information on a specific command.
+>>> end
+>>> ruby bin/subcommand.rb fxxx --help
+Invalid command: fxxx
+Usage: subcommand.rb [options] [subcommand [options]]
+Stupid program that does something
+
+Global options are:
+    -v, --[no-]verbose               Run verbosely
+
+Commands are:
+   foo : desc for foo
+   baz : desc for baz
+
+Aliases: 
+   goo - foo
+   bar - ["baz"]
+   boo - ["foo", "--force"]
+   zoo - ["foo", "ruby"]
+
+
+See 'bin/subcommand.rb help COMMAND' for more information on a specific command.
+>>> end
+
+EOF
+test_done

data/tests/t0004-subcomm.sh

@@ -0,0 +1,25 @@
+#!/bin/sh
+test_description="Testing out subcomm "
+. ./test-lib.sh
+
+
+
+
+test_todo_session "Testing of subcomm" <<EOF
+>>> ruby bin/subcommand.rb baz --quiet "some text"
+cmd: baz
+options ......
+{:quiet=>true}
+ARGV:
+["some text"]
+>>> end
+>>> ruby bin/subcommand.rb --verbose foo --force file.zzz
+cmd: foo
+options ......
+{:verbose=>true, :force=>true}
+ARGV:
+["file.zzz"]
+>>> end
+
+EOF
+test_done

data/tests/t0005-alias_goo.sh

@@ -0,0 +1,28 @@
+#!/bin/sh
+test_description="Testing out alias_goo "
+. ./test-lib.sh
+
+
+
+
+test_todo_session "Testing of alias_goo" <<EOF
+>>> ruby bin/subcommand.rb goo
+cmd: foo
+options ......
+{}
+ARGV:
+[]
+>>> end
+>>> ruby bin/subcommand.rb help goo
+Usage: foo [options]
+desc for foo
+    -f, --[no-]force                 force verbosely
+>>> end
+>>> ruby bin/subcommand.rb goo --help
+Usage: foo [options]
+desc for foo
+    -f, --[no-]force                 force verbosely
+>>> end
+
+EOF
+test_done

data/tests/t0006-goo_opt.sh

@@ -0,0 +1,25 @@
+#!/bin/sh
+test_description="Testing out goo_opt "
+. ./test-lib.sh
+
+
+
+
+test_todo_session "Testing of goo_opt" <<EOF
+>>> ruby bin/subcommand.rb goo -f
+cmd: foo
+options ......
+{:force=>true}
+ARGV:
+[]
+>>> end
+>>> ruby bin/subcommand.rb foo -f
+cmd: foo
+options ......
+{:force=>true}
+ARGV:
+[]
+>>> end
+
+EOF
+test_done

data/tests/t0007-bar_baz.sh

@@ -0,0 +1,44 @@
+#!/bin/sh
+test_description="Testing out bar_baz "
+. ./test-lib.sh
+
+
+
+
+test_todo_session "Testing of bar_baz" <<EOF
+>>> ruby bin/subcommand.rb bar
+cmd: baz
+options ......
+{}
+ARGV:
+[]
+>>> end
+>>> ruby bin/subcommand.rb baz
+cmd: baz
+options ......
+{}
+ARGV:
+[]
+>>> end
+>>> ruby bin/subcommand.rb baz --help
+Usage: baz [options]
+desc for baz
+    -q, --[no-]quiet                 quietly run 
+>>> end
+>>> ruby bin/subcommand.rb baz -q
+cmd: baz
+options ......
+{:quiet=>true}
+ARGV:
+[]
+>>> end
+>>> ruby bin/subcommand.rb bar -q
+cmd: baz
+options ......
+{:quiet=>true}
+ARGV:
+[]
+>>> end
+
+EOF
+test_done