someWorkspace

"Test to the Interface"

i := Interface new.
i selectors: #(#method #method: #methodA #methodA: #methodB:with:).

exI := ExampleInterface new.

i isCompliant: ExampleInterface.
i query: exl. 
i isUnderstoodBy: exl.
i addNeededStubsIn: ExampleInterface.


y := Interface new.
y selectors: #(#bla #ble #method #methodC).

y isCompliant: ExampleInterface.
y query: exl.
y isUnderstoodBy: exl.
y addNeededStubsIn: ExampleInterface.


"Test to the Delegator"

exs := ExampleOS new.
ex := ExampleO new.
ex bla: exs.

ex class instVarNames.
ex ble: 'hellooo'.
ex respondsTo: #ble.
exs respondsTo: #nah:.
exs class canUnderstand: #nah.
ex ble.
exs perform: #nah: with: 2.

del := IVDelegator on: ex.
del sendMessage: #nah: with: 2.
del sendMessage: #ble.  
del sendMessage: #ble withArguments: #().
del sendMessage: #nah: withArguments: #(2).