Changeset 10267


Ignore:
Timestamp:
10/28/05 17:14:34 (16 years ago)
Author:
piso
Message:

JNEW.ERROR.1

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/java-tests.lisp

    r10253 r10267  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: java-tests.lisp,v 1.10 2005-10-28 12:19:47 piso Exp $
     4;;; $Id: java-tests.lisp,v 1.11 2005-10-28 17:14:34 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    180180  "java.awt.Point")
    181181
     182(deftest jnew.error.1
     183  (signals-error (jnew (jconstructor "java.lang.String" "java.lang.String")
     184                       (make-immediate-object nil :ref))
     185                 #+abcl    'java-exception
     186                 #+allegro 'jlinker-error)
     187  t)
     188
    182189(deftest jcall.1
    183190  (let ((method (jmethod "java.lang.String" "length")))
Note: See TracChangeset for help on using the changeset viewer.