|
Last change
on this file was
15380,
checked in by Mark Evenson, 5 years ago
|
|
Tests for creating primitive java arrays
|
|
File size:
786 bytes
|
| Line | |
|---|
| 1 | (in-package :cl-user) |
|---|
| 2 | |
|---|
| 3 | (let ((tests '(("byte" |
|---|
| 4 | #(0 255 128 127)) |
|---|
| 5 | ("short" |
|---|
| 6 | #(0 255 128 127)) |
|---|
| 7 | ("char" |
|---|
| 8 | #(0 255 128 127)) |
|---|
| 9 | ("int" |
|---|
| 10 | #(0 255 128 127)) |
|---|
| 11 | ("long" |
|---|
| 12 | #(0 255 128 127)) |
|---|
| 13 | ("float" |
|---|
| 14 | #(0 255 128 127)) |
|---|
| 15 | ("double" |
|---|
| 16 | #(0 255 128 127)) |
|---|
| 17 | ("boolean" |
|---|
| 18 | #(0 255 128 127))))) |
|---|
| 19 | (prove:plan (length tests)) |
|---|
| 20 | (loop :for (array-primitive-type initial-contents) :in tests |
|---|
| 21 | :doing |
|---|
| 22 | (prove:ok |
|---|
| 23 | (java:jnew-array-from-array array-primitive-type initial-contents) |
|---|
| 24 | (format nil "java array from ~a" array-primitive-type)))) |
|---|
| 25 | |
|---|
| 26 | |
|---|
| 27 | (prove:finalize) |
|---|
Note: See
TracBrowser
for help on using the repository browser.
