diff --git a/source/Buoy-Metaprogramming-Tests/LanguagePlatformTest.class.st b/source/Buoy-Metaprogramming-Tests/LanguagePlatformTest.class.st index 4ec4235..f9432a0 100644 --- a/source/Buoy-Metaprogramming-Tests/LanguagePlatformTest.class.st +++ b/source/Buoy-Metaprogramming-Tests/LanguagePlatformTest.class.st @@ -36,6 +36,14 @@ LanguagePlatformTest >> testForkNamedAt [ self assert: wasEvaluated ] +{ #category : 'tests' } +LanguagePlatformTest >> testGetInvalidInstanceVariable [ + + self + should: [ LanguagePlatform current instanceVariableNamed: 'variableForFailing' on: self ] + raise: Error +] + { #category : 'tests' } LanguagePlatformTest >> testGlobalNamedIfAbsent [ @@ -204,3 +212,11 @@ LanguagePlatformTest >> testRemoveGlobalNamedIfAbsent [ ifAbsent: [ wasFound := false ]. self deny: wasFound ] + +{ #category : 'tests' } +LanguagePlatformTest >> testSetInvalidInstanceVariable [ + + self + should: [ LanguagePlatform current atInstanceVariableNamed: 'variableForFailing' on: self put: 8 ] + raise: Error +]