#1137. Коротко. Делаем тесты к скриптовым словам №4

Предыдущая серия была тут - Коротко. Делаем тесты к скриптовым словам №3.

Там были всякие "глупости" и "лишние слова" про @SELF DumpElement.

Теперь я их изжил введя слово TestWithDump.

Получилось вот что:

// DogAndBracket.ms.script

USES
 DogAndBracket.ms.dict
 Testing.ms.dict
;

TestWithDump DogAndBracketTest
 RunTests.in.array @[ @( @[ ]
  %REMARK 'Запускаем тесты к указанным скриптовым словам' 
; // DogAndBracketTest

DogAndBracketTest

Под капотом вот что:

https://bitbucket.org/lulinalex/mindstream/src/30fdd4bdad637597cd4c412aa6d6b63a8e12ff7d/Examples/Scripts/CodeGeneration1/Testing.ms.dict?at=B284

// Testing.ms.dict

...

USES
 CodeDump.ms.dict
;

EXPORTS
 CodeDump.ms.dict

MACRO TestWithDump
 Literal IN aName
 %SUMMARY 'Аналог слова Test, но с дампингом кода слова в стандартный вывод' ;

 @SELF Ctx:SetWordProducerForCompiledClass
 axiom:PushSymbol VOID
 axiom:PushSymbol axiom:operator
 aName |N Ctx:Parser:PushSymbol
 axiom:PushSymbol @SELF
 axiom:PushSymbol DumpElement
; // TestWithDump

Стало значительно лаконичнее.