File: euslisp-loadelf-test

package info (click to toggle)
euslisp 9.31%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 55,448 kB
  • sloc: ansic: 41,610; lisp: 3,339; makefile: 286; sh: 238; asm: 138; python: 53
file content (14 lines) | stat: -rw-r--r-- 429 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/bin/sh

exec 2>&1

set -e

test_eusgeo_dlopen() {
    # check if irteusgeo.so introduce LINEINTERSECTION3
    echo "(eval-when (load) (geo::line-intersection3 #f(0 0 -1) #f(0 0 1) #f(0 -1 0) #f(0 1 0) 0.001))" > intersection3-test.l
    name=$( eusg '(progn (compile-file "intersection3-test.l" :o "intersection3-test.o") (load "intersection3-test.so")(print *user*)(unix::exit))')
    assertNotEquals "" "$name"
}

. shunit2