Use Okay to validate parameters

src/BaselineOfClap/BaselineOfClap.class.st

@@ -8,6 +8,8 @@ Class {
 BaselineOfClap >> baseline: spec [
 	<baseline>
 	spec for: #common do: [ spec
+		baseline: 'Okay' with: [ spec repository: 'github://cdlm/okay-st' ];
+
 		package: 'Clap-Core';
 		package: 'Clap-CommandLine' with: [ spec requires: #('Clap-Core') ];
 		package: 'Clap-Tests' with: [ spec requires: #('Clap-Core' 'Clap-Examples') ];

src/Clap-Tests/ClapArgumentValidationTest.class.st

@@ -0,0 +1,37 @@
+Class {
+	#name : #ClapArgumentValidationTest,
+	#superclass : #TestCase,
+	#category : #'Clap-Tests-Validations'
+}
+
+{ #category : #tests }
+ClapArgumentValidationTest >> testFailValidationWhenMissingMandatoryArgument [
+	| flag match report |
+	flag := (ClapFlag withName: 'lang')
+		add: (ClapPositional withName: 'langCode');
+		validations: [ :arg | {
+			Okay if: [ :it | (it atName: 'langCode') isExplicit ]
+		} collect: [ :each | each validate: arg ] ].
+
+	match := flag match: #('--lang').
+	report := ClapValidationReport success.
+	match validateOn: report.
+
+	self assert: report isFailure
+]
+
+{ #category : #tests }
+ClapArgumentValidationTest >> testPassValidationWithMandatoryArgument [
+	| flag match report |
+	flag := (ClapFlag withName: 'lang')
+		add: (ClapPositional withName: 'langCode');
+		validations: [ :arg | {
+			Okay if: [ :it | (it atName: 'langCode') isExplicit ]
+		} collect: [ :each | each validate: arg ] ].
+
+	match := flag match: #('--lang' 'eo').
+	report := ClapValidationReport success.
+	match validateOn: report.
+
+	self assert: report isSuccess
+]

src/Clap-Tests/ClapHelloWorldTest.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'hello'
 	],
-	#category : 'Clap-Tests-Integration'
+	#category : #'Clap-Tests-Integration'
 }
 
 { #category : #running }