File: 4_multisections.t

package info (click to toggle)
inline-octave 0.22-3
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 132 kB
  • ctags: 67
  • sloc: perl: 822; makefile: 44
file content (23 lines) | stat: -rw-r--r-- 310 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#use strict;
use Test;
BEGIN {
           plan(tests => 2) ;
}

         

use Inline Octave => q{
   function t=jnk1(x,a,b); t=x+a+b; endfunction
};   


ok ( jnk1(4,2,1)->as_scalar == 7 );

ok ( jnk2(4,2,1)->as_scalar == 1 );




use Inline Octave => q{
   function t=jnk2(x,a,b); t=x-a-b; endfunction
};