ref: 1e682a61a6e945fff341393cf2c7c4f33176327a
parent: f549aaa55c3b8a30ec70028e38a6d63532031e5f
author: 9ferno <gophone2015@gmail.com>
date: Thu Jan 20 04:45:47 EST 2022
added tests for close and shm
--- /dev/null
+++ b/tests/fthclose.sh
@@ -1,0 +1,19 @@
+#!/dis/sh
+
+load std
+echo my pid is ${pid}+
+#{echo testing; sleep 1; echo exiting} | { cat - ; echo exiting the receiver }+bind '#|' /n/ff
+{sleep 1; echo 10; sleep 1; echo . } | >[8]/n/ff/data1{+ cat '#p/'^${pid}^'/fd'+ # forth process startup
+ <'#f/forth/new'{ n=`{read} }+ echo parent block pid ${pid}+ echo forth pid is $n
+ echo 'forkenv forkfd forkns noshmem redirfds 0 8 2 ' >'#f/forth/'^$n^'/ctl'
+ sleep 10
+
+}
+echo exiting fthclose.sh
+
--- /dev/null
+++ b/tests/fthshm.sh
@@ -1,0 +1,133 @@
+#!/dis/sh
+
+load std
+echo my pid is ${pid}+
+bind '#|' /n/ffshm
+bind '#|' /n/ffshm1
+<[7]/n/ffshm/data >[8]/n/ffshm/data1 >[9]/n/ffshm/data <[10]/n/ffshm/data1 <[17]/n/ffshm1/data >[18]/n/ffshm1/data1 >[19]/n/ffshm1/data <[20]/n/ffshm1/data1 {+
+ # data1 -> data, write to 8, read on 7
+ # data -> data1, write to 9, read on 10
+
+ cat '/prog/'^${pid}^'/fd'+ space=' '
+
+ echo parent block pid ${pid}+ cat '/prog/'^${pid}^'/fd'+
+ # forth process 1 startup
+ <'#f/forth/new'{ n=`{read} }+ echo forth pid is $n
+ cat '#o/'^$n^'/fd'
+ echo 'forkenv forkfd forkns shmem redirfds 7 9 2 ' >'#f/forth/'^$n^'/ctl'
+
+ # forth process 2 startup
+ <'#f/forth/new'{ o=`{read} }+ echo forth pid is $o
+ cat '#o/'^$o^'/fd'
+ echo 'forkenv forkfd forkns shmem redirfds 17 19 2 ' >'#f/forth/'^$o^'/ctl'
+
+# echo ' 10 . ' >[1=8] $space
+# <[0=10] { read }+
+ fn sendn {+ echo $"* >[1=8]
+ }
+
+ fn readlinen {+ <[0=10] { read }+ }
+
+ fn tn {+ args=$*
+ (sendargs expected)=$*
+ #echo $args
+ echo $sendargs ' => ' $expected
+
+ # get stack depth
+ sendn 'depth . ' $space
+ d="{readlinen}+ readlinen # to ignore the space following the .
+
+ sendn $sendargs
+
+ for i in $expected {+ r="{readlinen}+ if{! ~ $"i $"r}{ # forth . puts a space at the end+ echo $sendargs '->' $expected
+ echo does not match: expected '"'$"i'"' actual '"'$"r'"'
+ }
+ }
+
+ # compare stack depth now
+ sendn 'depth . ' $space
+ dnew="{readlinen}+ readlinen # to ignore the space following the .
+ if{! ~ $"dnew $"d}{+ echo $sendargs '->' $expected
+ echo stack depth changed: start $d end $dnew
+ }
+ }
+
+ tn ' variable Shmfd 10 Shmfd ! Shmfd @ . ' 10 $space
+ tn ' 9 : shmfd@ Shmfd @ ; . ' 9 $space
+ tn ' 9 : shmfd! Shmfd ! ; . ' 9 $space
+ tn ' 11 shmfd! shmfd@ . ' 11 $space
+ tn ' variable Outputchars 1 vallot 65 Outputchars ! 66 Outputchars 1+ ! Outputchars 2 type ' AB
+ tn ' 9 Outputchars 2 type . ' AB 9 $space
+ tn ' 9 " #h/init" r/w 420 create-file drop shmfd! Outputchars 2 shmfd@ write-file drop shmfd@ close-file drop . ' 9 $space
+ tn ' variable Oc1 1 vallot 67 Oc1 ! 68 Oc1 1+ ! Oc1 2 type ' CD
+ tn ' 9 " #h/init" r/o open-file ( fd ioresult ) drop shmfd! Oc1 2 shmfd@ read-file ( n ioresult ) drop dup . ( n ) Oc1 swap type . ' 2 $space AB 9 $space
+
+ fn sendo {+ echo $"* >[1=18]
+ }
+
+ fn readlineo {+ <[0=20] { read }+ }
+
+ fn to {+ args=$*
+ (sendargs expected)=$*
+ #echo $args
+ echo $sendargs ' => ' $expected
+
+ # get stack depth
+ sendo 'depth . ' $space
+ d="{readlineo}+ readlineo # to ignore the space following the .
+
+ sendo $sendargs
+
+ for i in $expected {+ r="{readlineo}+ if{! ~ $"i $"r}{ # forth . puts a space at the end+ echo $sendargs '->' $expected
+ echo does not match: expected '"'$"i'"' actual '"'$"r'"'
+ }
+ }
+
+ # compare stack depth now
+ sendo 'depth . ' $space
+ dnew="{readlineo}+ readlineo # to ignore the space following the .
+ if{! ~ $"dnew $"d}{+ echo $sendargs '->' $expected
+ echo stack depth changed: start $d end $dnew
+ }
+ }
+
+ to ' variable Shmfd 10 Shmfd ! Shmfd @ . ' 10 $space
+ to ' 9 : shmfd@ Shmfd @ ; . ' 9 $space
+ to ' 9 : shmfd! Shmfd ! ; . ' 9 $space
+ to ' 11 shmfd! shmfd@ . ' 11 $space
+ to ' variable Outputchars 1 vallot 65 Outputchars ! 66 Outputchars 1+ ! Outputchars 2 type ' AB
+ to ' 9 Outputchars 2 type . ' AB 9 $space
+ to ' 9 " #h/init" r/w 420 create-file drop shmfd! Outputchars 2 shmfd@ write-file drop shmfd@ close-file drop . ' 9 $space
+ to ' variable Oc1 1 vallot 67 Oc1 ! 68 Oc1 1+ ! Oc1 2 type ' CD
+ to ' 9 " #h/init" r/o open-file ( fd ioresult ) drop shmfd! Oc1 2 shmfd@ read-file ( n ioresult ) drop dup . ( n ) Oc1 swap type . ' 2 $space AB 9 $space
+
+}
+echo exiting fthshm.sh