@Test
 public void shouldCreateWithStringJavaValue() {
   PrimObjectMetaclass.BOOTSTRAPPING = true;
   String javaValue = "string";
   PrimObject object = PrimObject.string(javaValue);
   assertEquals(object.javaValue(), javaValue);
 }
 @Test
 public void resolveObjectShouldReturnClassFromClassesRegistryIfFound() {
   PrimObject aClass = mock(PrimObject.class);
   PrimObject.CLASSES.put("Thing", aClass);
   PrimObject primObject = new PrimObject();
   assertEquals(aClass, primObject.resolveObject("Thing"));
 }
 @Test
 public void shouldProvideMutateOfClass() {
   PrimObject object = new PrimObject();
   PrimObject aClass = new PrimObject();
   object.cls(aClass);
   assertEquals(object.cls(), aClass);
 }
 @Test
 public void shouldDelegatePackageLookupToClass() {
   PrimObject aClass = mock(PrimObject.class);
   PrimObject primObject = new PrimObject();
   primObject.cls(aClass);
   primObject.packageFor("SomeClass");
   verify(aClass).packageFor("SomeClass");
 }
 @Test
 public void shouldPassArgumentsFromP128ToCreateSubclassMethod() {
   PrimContext context = mock(PrimContext.class);
   PrimObject aClass = new PrimObject();
   PrimObject spy = spy(aClass);
   doReturn(mock(PrimObject.class)).when(spy).createSubclass(spy, context);
   spy.p128(spy, context);
 }
 @Test
 public void shouldPassArgumentsFromP129ToAtSelectorPutMethod() {
   PrimContext context = mock(PrimContext.class);
   PrimObject aClass = new PrimObject();
   PrimObject spy = spy(aClass);
   doReturn(mock(PrimObject.class)).when(spy).atSelectorPut(spy, context);
   spy.p129(spy, context);
 }
 @Test
 public void shouldCallInvokeOnReceiverWhenP81Called() {
   PrimContext context = mock(PrimContext.class);
   PrimObject receiver = mock(PrimObject.class);
   PrimObject anObject = new PrimObject();
   anObject.p81(receiver, context);
   verify(receiver).invoke(receiver, context);
 }
 @Test
 public void shouldCreateInstanceOfExistingBlockWhenBlockCalledWithNameOfRegisteredBlock() {
   PrimObject primObject = new PrimObject();
   PrimObject block = mock(PrimObject.class);
   when(block.isMethodBlock()).thenReturn(true);
   PrimObject.BLOCKS.put("st/redline/core/Thing$M1", block);
   primObject.block("st/redline/core/Thing$M1", null);
   // not a test so much as documentation.
 }
 @Test
 public void shouldCheckSizeOfInstanceWhenCreatingInstanceWithP70() {
   PrimObjectMetaclass aClass = new PrimObjectMetaclass();
   PrimObjectMetaclass spy = spy(aClass);
   when(spy.primInstanceSize()).thenReturn(4);
   PrimObject newInstance = spy.p70(spy, null);
   assertNotNull(newInstance);
   assertNotNull(newInstance.cls());
   assertEquals(5, newInstance.attributes.length);
 }
Пример #10
0
 @Test
 public void shouldLookupImportsForFullyQualifiedClassNameWhenResolvingObjects() {
   PrimObject aClass = mock(PrimObject.class);
   PrimObject primObject = new PrimObject();
   when(aClass.packageFor("Thing")).thenReturn("st.redline.Thing");
   primObject.cls(aClass);
   try {
     primObject.resolveObject("Thing");
   } catch (RedlineException e) {
     assertEquals(
         "st.redline.core.RedlineException: java.lang.ClassNotFoundException: st.redline.Thing",
         e.toString());
   }
 }
Пример #11
0
 @Test
 public void performShouldInvokeDnuWhenNoClassSet() {
   PrimObject object = new PrimObject();
   try {
     object.perform("anything");
   } catch (RedlineException e) {
     assertEquals(
         e.getMessage(),
         "Object '"
             + object.toString()
             + "' ("
             + object.cls().toString()
             + ") does not understand 'anything'.");
   }
 }
Пример #12
0
 @Test
 public void variableAtShouldCallResolveObject() {
   try {
     PrimObject primObject = new PrimObject();
     PrimObjectClass primObjectClass = mock(PrimObjectClass.class);
     when(primObjectClass.indexOfVariable("Thing")).thenReturn(0);
     primObject.cls(primObjectClass);
     PrimObject spy = spy(primObject);
     spy.variableAt("Thing");
     verify(spy).resolveObject("Thing");
   } catch (Throwable e) {
     try {
       PrintStream f =
           new PrintStream(new FileOutputStream("c:\\Users\\7\\redline-smalltalk\\x2.txt"));
       e.printStackTrace(f);
     } catch (FileNotFoundException h) {
       throw new RuntimeException(h);
     }
     throw new RuntimeException("in variableAtShouldCallResolveObject");
   }
 }
Пример #13
0
 @Test
 public void shouldProvideAccessToClass() {
   PrimObject object = new PrimObject();
   assertEquals(object.cls(), PrimObject.PRIM_NIL);
 }
Пример #14
0
 @Test
 public void invokeShouldAnswerSelfWhenNoClassSet() {
   PrimObject object = new PrimObject();
   assertEquals(object, object.invoke(object, new PrimContext(object, null, "anything")));
 }
Пример #15
0
 @Test
 public void shouldAnswerTrueToIncludesSelector() {
   PrimObject object = new PrimObject();
   assertTrue(object.includesSelector("foo"));
   assertTrue(object.includesSelector("bar"));
 }
Пример #16
0
 @Test
 public void shouldAnswerDoesNotUnderstandAsMethodForAnySelector() {
   PrimObject object = new PrimObject();
   assertEquals(object.methodFor("foo"), PrimObject.BASIC_DOES_NOT_UNDERSTAND);
   assertEquals(object.methodFor("bar"), PrimObject.BASIC_DOES_NOT_UNDERSTAND);
 }
Пример #17
0
 @Test
 public void shouldInitializeItselfAsSuperclass() {
   PrimObject object = new PrimObject();
   assertEquals(object.superclass(), object);
 }