The Trunk: Tests-dtl.443.mcz

David T. Lewis uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-dtl.443.mcz

==================== Summary ====================

Name: Tests-dtl.443
Author: dtl
Time: 8 December 2020, 4:12:09.524558 pm
UUID: 7c308020-16a4-4b76-83c9-5bc4ba13fd98
Ancestors: Tests-mt.442

Add DoItFirstTest to verify command line parsing for DoitFirst and confirm mapping of command line tokens to known options.

=============== Diff against Tests-mt.442 ===============

Item was added:
+ TestCase subclass: #DoItFirstTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Tests-System-Support'!
+
+ !DoItFirstTest commentStamp: 'dtl 12/6/2020 20:02' prior: 0!
+ A DoItFirstTest verifies command line parsing for DoitFirst to confirm mapping of command line tokens to known options.
+ !

Item was added:
+ ----- Method: DoItFirstTest>>testEvaluateFileContents (in category 'tests') -----
+ testEvaluateFileContents
+ | doItFirst actionBlocks action blockArg |
+ doItFirst := DoItFirst new.
+ {
+ { '--' . 'foo' . 'bar' . '--file' . 'arg1' . 'arg2' . 'arg3' } .
+ { '--' . 'foo' . 'bar' . '-file' . 'arg1' . 'arg2' . 'arg3' } .
+ { '--' . 'foo' . 'bar' . '-f' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '--file' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '-file' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '-f' . 'arg1' . 'arg2' . 'arg3' }
+ } do: [ :args |
+ actionBlocks := doItFirst parse: args.
+ self assert: 1 equals: actionBlocks size.
+ action := actionBlocks first.
+ self assert: action equals: (doItFirst actions at: #file).
+ self assert: 0 equals: action numArgs.
+ self assert: 1 equals: action numTemps.
+ blockArg := (action at: 1) first.
+ self assert: 'arg1' equals: blockArg.
+ ].
+ !

Item was added:
+ ----- Method: DoItFirstTest>>testEvaluateOption (in category 'tests') -----
+ testEvaluateOption
+ | doItFirst actionBlocks action blockArg |
+ doItFirst := DoItFirst new.
+ {
+ { '--' . 'foo' . 'bar' . '--evaluate' . 'arg1' . 'arg2' . 'arg3' } .
+ { '--' . 'foo' . 'bar' . '-evaluate' . 'arg1' . 'arg2' . 'arg3' } .
+ { '--' . 'foo' . 'bar' . '-e' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '--evaluate' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '-evaluate' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '-e' . 'arg1' . 'arg2' . 'arg3' }
+ } do: [ :args |
+ actionBlocks := doItFirst parse: args.
+ self assert: 1 equals: actionBlocks size.
+ action := actionBlocks first.
+ self assert: action equals: (doItFirst actions at: #evaluate).
+ self assert: 0 equals: action numArgs.
+ self assert: 1 equals: action numTemps.
+ blockArg := (action at: 1) first.
+ self assert: 'arg1' equals: blockArg.
+ ].
+ !

Item was added:
+ ----- Method: DoItFirstTest>>testParseCwd (in category 'tests') -----
+ testParseCwd
+ | doItFirst actionBlocks action blockArg |
+ doItFirst := DoItFirst new.
+ {
+ { '--' . 'foo' . 'bar' . '--cwd' . 'arg1' . 'arg2' . 'arg3' } .
+ { '--' . 'foo' . 'bar' . '-cwd' . 'arg1' . 'arg2' . 'arg3' } .
+ { '--' . 'foo' . 'bar' . '-c' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '--cwd' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '-cwd' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '-c' . 'arg1' . 'arg2' . 'arg3' }
+ } do: [ :args |
+ actionBlocks := doItFirst parse: args.
+ self assert: 1 equals: actionBlocks size.
+ action := actionBlocks first.
+ self assert: action equals: (doItFirst actions at: #cwd).
+ self assert: 0 equals: action numArgs.
+ self assert: 1 equals: action numTemps.
+ blockArg := (action at: 1) first.
+ self assert: 'arg1' equals: blockArg.
+ ].
+ !

Item was added:
+ ----- Method: DoItFirstTest>>testParseDebug (in category 'tests') -----
+ testParseDebug
+ "Debug is a deferred action, registered in the actions but not added
+ to the list of actions to be immediately evaluated"
+ | doItFirst actionBlocks deferredAction |
+ doItFirst := DoItFirst new.
+ {
+ { '--' . 'foo' . 'bar' . '--debug' . 'arg1' . 'arg2' . 'arg3' } .
+ { '--' . 'foo' . 'bar' . '-debug' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '--debug' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '-debug' . 'arg1' . 'arg2' . 'arg3' } .
+ } do: [ :args |
+ actionBlocks := doItFirst parse: args.
+ self assert: 0 equals: actionBlocks size. "deferred action"
+ deferredAction := doItFirst actions at: #debug.
+ self assert: 0 equals: deferredAction numArgs.
+ self assert: 0 equals: deferredAction numTemps
+ ].
+ !

Item was added:
+ ----- Method: DoItFirstTest>>testParseDoit (in category 'tests') -----
+ testParseDoit
+ | doItFirst actionBlocks action blockArg |
+ doItFirst := DoItFirst new.
+ {
+ { '--' . 'foo' . 'bar' . '--doit' . 'arg1' . 'arg2' . 'arg3' } .
+ { '--' . 'foo' . 'bar' . '-doit' . 'arg1' . 'arg2' . 'arg3' } .
+ { '--' . 'foo' . 'bar' . '-d' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '--doit' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '-doit' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '-d' . 'arg1' . 'arg2' . 'arg3' }
+ } do: [ :args |
+ actionBlocks := doItFirst parse: args.
+ self assert: 1 equals: actionBlocks size.
+ action := actionBlocks first.
+ self assert: action equals: (doItFirst actions at: #doit).
+ self assert: 0 equals: action numArgs.
+ self assert: 1 equals: action numTemps.
+ blockArg := (action at: 1) first.
+ self assert: 3 equals: blockArg size.
+ self assert: 'arg1' equals: blockArg first.
+ self assert: 'arg2' equals: blockArg second.
+ self assert: 'arg3' equals: blockArg third.
+ ].
+ !

Item was added:
+ ----- Method: DoItFirstTest>>testParseDoitArgsListWithFileArg (in category 'tests') -----
+ testParseDoitArgsListWithFileArg
+ | doItFirst actionBlocks action blockArg |
+ doItFirst := DoItFirst new.
+ {
+ { '--' . 'foo' . 'bar' . '--doit' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} .
+ { '--' . 'foo' . 'bar' . '-doit' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} .
+ { '--' . 'foo' . 'bar' . '-d' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} .
+ { 'foo' . 'bar' . '--doit' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} .
+ { 'foo' . 'bar' . '-doit' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} .
+ { 'foo' . 'bar' . '-d' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'}
+ } do: [ :args |
+ actionBlocks := doItFirst parse: args.
+ self assert: 2 equals: actionBlocks size.
+ action := actionBlocks first.
+ self assert: action equals: (doItFirst actions at: #doit).
+ self assert: 0 equals: action numArgs.
+ self assert: 1 equals: action numTemps.
+ blockArg := (action at: 1) first.
+ self assert: 3 equals: blockArg size.
+ self assert: 'arg1' equals: blockArg first.
+ self assert: 'arg2' equals: blockArg second.
+ self assert: 'arg3' equals: blockArg third.
+ ].
+
+ !

Item was added:
+ ----- Method: DoItFirstTest>>testParseDoitArgsListWithHelpArg (in category 'tests') -----
+ testParseDoitArgsListWithHelpArg
+ | doItFirst actionBlocks action blockArg |
+ doItFirst := DoItFirst new.
+ {
+ { '--' . 'foo' . 'bar' . '--doit' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} .
+ { '--' . 'foo' . 'bar' . '-doit' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} .
+ { '--' . 'foo' . 'bar' . '-d' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} .
+ { 'foo' . 'bar' . '--doit' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} .
+ { 'foo' . 'bar' . '-doit' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} .
+ { 'foo' . 'bar' . '-d' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'}
+ } do: [ :args |
+ actionBlocks := doItFirst parse: args.
+ self assert: 2 equals: actionBlocks size.
+ action := actionBlocks second.
+ self assert: action equals: (doItFirst actions at: #doit).
+ self assert: 0 equals: action numArgs.
+ self assert: 1 equals: action numTemps.
+ blockArg := (action at: 1) first.
+ self assert: 3 equals: blockArg size.
+ self assert: 'arg1' equals: blockArg first.
+ self assert: 'arg2' equals: blockArg second.
+ self assert: 'arg3' equals: blockArg third.
+ ].
+ !

Item was added:
+ ----- Method: DoItFirstTest>>testParseFIleinArgsListWithHelpArg (in category 'tests') -----
+ testParseFIleinArgsListWithHelpArg
+ | doItFirst actionBlocks action blockArg |
+ doItFirst := DoItFirst new.
+ {
+ { '--' . 'foo' . 'bar' . '--filein' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} .
+ { '--' . 'foo' . 'bar' . '-filein' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} .
+ { 'foo' . 'bar' . '--filein' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} .
+ { 'foo' . 'bar' . '-filein' . 'arg1' . 'arg2' . 'arg3' . '-help' . 'arg4'} .
+ } do: [ :args |
+ actionBlocks := doItFirst parse: args.
+ self assert: 2 equals: actionBlocks size.
+ action := actionBlocks second.
+ self assert: action equals: (doItFirst actions at: #filein).
+ self assert: 0 equals: action numArgs.
+ self assert: 1 equals: action numTemps.
+ blockArg := (action at: 1) first.
+ self assert: 3 equals: blockArg size.
+ self assert: 'arg1' equals: blockArg first.
+ self assert: 'arg2' equals: blockArg second.
+ self assert: 'arg3' equals: blockArg third.
+ ].
+ !

Item was added:
+ ----- Method: DoItFirstTest>>testParseFilein (in category 'tests') -----
+ testParseFilein
+ | doItFirst actionBlocks action blockArg |
+ doItFirst := DoItFirst new.
+ {
+ { '--' . 'foo' . 'bar' . '--filein' . 'arg1' . 'arg2' . 'arg3' } .
+ { '--' . 'foo' . 'bar' . '-filein' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '--filein' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '-filein' . 'arg1' . 'arg2' . 'arg3' } .
+ } do: [ :args |
+ actionBlocks := doItFirst parse: args.
+ self assert: 1 equals: actionBlocks size.
+ action := actionBlocks first.
+ self assert: action equals: (doItFirst actions at: #filein).
+ self assert: 0 equals: action numArgs.
+ self assert: 1 equals: action numTemps.
+ blockArg := (action at: 1) first.
+ self assert: 3 equals: blockArg size.
+ self assert: 'arg1' equals: blockArg first.
+ self assert: 'arg2' equals: blockArg second.
+ self assert: 'arg3' equals: blockArg third.
+ ].
+ !

Item was added:
+ ----- Method: DoItFirstTest>>testParseFileinArgsListWithFileArg (in category 'tests') -----
+ testParseFileinArgsListWithFileArg
+ | doItFirst actionBlocks action blockArg |
+ doItFirst := DoItFirst new.
+ {
+ { '--' . 'foo' . 'bar' . '--filein' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} .
+ { '--' . 'foo' . 'bar' . '-filein' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} .
+ { 'foo' . 'bar' . '--filein' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} .
+ { 'foo' . 'bar' . '-filein' . 'arg1' . 'arg2' . 'arg3' . '-f' . 'arg4'} .
+ } do: [ :args |
+ actionBlocks := doItFirst parse: args.
+ self assert: 2 equals: actionBlocks size.
+ action := actionBlocks first.
+ self assert: action equals: (doItFirst actions at: #filein).
+ self assert: 0 equals: action numArgs.
+ self assert: 1 equals: action numTemps.
+ blockArg := (action at: 1) first.
+ self assert: 3 equals: blockArg size.
+ self assert: 'arg1' equals: blockArg first.
+ self assert: 'arg2' equals: blockArg second.
+ self assert: 'arg3' equals: blockArg third.
+ ].
+
+ !

Item was added:
+ ----- Method: DoItFirstTest>>testParseHelp (in category 'tests') -----
+ testParseHelp
+ | doItFirst actionBlocks action |
+ doItFirst := DoItFirst new.
+ {
+ { '--' . 'foo' . 'bar' . '--help' . 'arg1' . 'arg2' . 'arg3' } .
+ { '--' . 'foo' . 'bar' . '-help' . 'arg1' . 'arg2' . 'arg3' } .
+ { '--' . 'foo' . 'bar' . '-h' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '--help' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '-help' . 'arg1' . 'arg2' . 'arg3' } .
+ { 'foo' . 'bar' . '-h' . 'arg1' . 'arg2' . 'arg3' }
+ } do: [ :args |
+ actionBlocks := doItFirst parse: args.
+ self assert: 1 equals: actionBlocks size.
+ action := actionBlocks first.
+ self assert: action equals: (doItFirst actions at: #help).
+ self assert: 0 equals: action numArgs.
+ self assert: 0 equals: action numTemps
+ ].
+ !