(define label ([] "UiLabel" alloc)) (define text ($$ "message Label")) (greg-testcase "UiLabel initialisation" #t (lambda () (equal? label ([] label initWithText: text position: '(0.5 0.375))))) (greg-testcase "UiLabel text after initialisation" #t (lambda () (gstep-bool([] text isEqualToString: ([] label text))))) (define text2 ($$ "message Label")) (greg-testcase "UiLabel after setting text" #t (lambda () ([] label setText: text2) (and (gstep-bool([] text2 isEqualToString: ([] label text))))))