Skip to content

net2o
net2o
Commit a51080a7 authored by bernd's avatar bernd
Browse files
Options

Move tests (need to make them run again)

parent fad03aa8
Hide whitespace changes
Inline Side-by-side
Showing with 32 additions and 24 deletions
Makefile.in
View file @ a51080a7
......@@ -51,23 +51,26 @@ INSTALL_SCRIPT = @INSTALL_SCRIPT@
ARCH =
DEBARCH =
SOURCES = 64bit.fs alice-test.fs base64.fs base85.fs bob-test.fs \
client-test.fs client-tests.fs crypto-api.fs debugging.fs \
eve-test.fs hash-table.fs keccak-small.fs kregion.fs n2o.fs \
TESTS = tests/alice2-msg.fs tests/alice-msg.fs tests/bob-msg.fs \
tests/copy.fs tests/cryptspeed.fs tests/dht.fs \
tests/dht-pop.fs tests/ed25519.fs tests/insdeltest.fs \
tests/keccak.fs tests/keys.fs tests/msg.fs \
tests/teststat.fs tests/threefish.fs tests/vault.fs \
tests/ed25519-table.fs tests/alice-test.fs \
tests/bob-test.fs tests/eve-test.fs tests/client-test.fs \
tests/client-tests.fs tests/server-test.fs \
tests/terminal-test.fs tests/test-keys.fs
SOURCES = 64bit.fs base64.fs base85.fs crypto-api.fs debugging.fs \
hash-table.fs keccak-small.fs kregion.fs n2o.fs \
net2o-addr.fs net2o-classes.fs net2o-cmd.fs \
net2o-connected.fs net2o-connect.fs net2o-crypt.fs \
net2o-dht.fs net2o-err.fs net2o-file.fs net2o.fs \
net2o-ip.fs net2o-helper.fs net2o-keys.fs net2o-log.fs \
net2o-msg.fs net2o-notify.fs net2o-qr.fs net2o-socks.fs \
net2o-tools.fs net2o-vault.fs rng.fs server-test.fs \
termclient.fs terminal-test.fs test-keys.fs xtype.fs \
tests/alice2-msg.fs tests/alice-msg.fs tests/bob-msg.fs \
tests/copy.fs tests/cryptspeed.fs tests/dht.fs \
tests/dht-pop.fs tests/ed25519.fs tests/insdeltest.fs \
tests/keccak.fs tests/keys.fs tests/msg.fs \
tests/teststat.fs tests/threefish.fs tests/vault.fs \
tests/ed25519-table.fs $(FORTHLIB) ed25519-donnalib.fs \
keccaklib.fs threefishlib.fs startn2o.fs doc/net2o-logo.png \
net2o-tools.fs net2o-vault.fs rng.fs termclient.fs xtype.fs \
$(TESTS) $(FORTHLIB) ed25519-donnalib.fs keccaklib.fs \
threefishlib.fs startn2o.fs doc/net2o-logo.png \
net2o-version.fs.in android-net.fs linux-net.fs \
net2o-dhtroot.fs
......
tests/alice-test.fs
View file @ a51080a7
\ net2o tests - client side
require net2o.fs
require client-tests.fs
require test-keys.fs \ we want the test keys - never use this in production!
......
client-test.fs → tests/client-test.fs
View file @ a51080a7
......@@ -15,7 +15,7 @@ init-client
"test" connect-nick $!
!time
cmd-args
?nextarg [IF] net2o-host $! [THEN]
?nextarg [IF] s>number drop to net2o-port [THEN]
?nextarg [IF] s>number drop [ELSE] 1 [THEN] c:tests
......
tests/client-tests.fs
View file @ a51080a7
\ Test lib clients
require ./net2o.fs
require ../net2o.fs
UValue test# 0 to test#
1 Value total-tests
......@@ -150,18 +150,21 @@ Variable connect-nick "test" connect-nick $!
init-cache'
$a $e connect-nick $@ nick>pk ins-ip pk:connect c:test-rest ;
Variable reqdone#
event: ->reqdone -1 reqdone# +! ;
: c:test& ( n -- ) \ in background
up@ 2 stacksize4 NewTask4 pass >r
alloc-io ['] c:test catch ?dup-IF
elit, ->throw drop
ELSE elit, connection elit, ->request THEN r> event> ;
ELSE drop ->reqdone THEN r> event> ;
#100 Value req-ms#
: c:tests ( n -- ) dup 0< IF abs to test# 1 THEN
dup to total-tests 1 over lshift 1- reqmask !
dup to total-tests dup reqdone# !
0 ?DO I c:test& req-ms# ms test# 1+ to test# LOOP
requests->0 ;
BEGIN stop reqdone# @ 0= UNTIL ;
\ lookup for other users
......
tests/server-test.fs
View file @ a51080a7
......@@ -7,7 +7,10 @@ require test-keys.fs \ we want the test keys - never use this in production!
%droprate
\ bg( )else( debug-task )
?nextarg [IF] s>number drop to net2o-port [THEN]
+db no0key( \ )
perm%myself dup to perm%unknown to perm%default
cmd-args ?nextarg [IF] s>number drop to net2o-port [THEN]
i'm test
......
tests/test-keys.fs
View file @ a51080a7
......@@ -4,23 +4,23 @@
\ revoke: 58AB8F52F46E73EFAB068F6337F371E14DD589BF0894D2F0AF51AE7EBB858A68
x" A91158F2C560ACCDFEFC05104B922E49C9DD022D0163921DAE08E6C2148A7BEBC83C71FCB345D24400D866C7FD32092C2D1EC056FD17B9537037590BD021EEBF" key:new >o
x" B2578B8766DB3A60F1F4F36B276924FDA6E7F559F629716BC78D95DB1CD8D400" ke-sk sec! +seckey
"test" ke-nick $! $1367B086A24E6B10. d>64 ke-first! 0 ke-type ! o>
"test" ke-nick $! nick! $1367B086A24E6B10. d>64 ke-first! 0 ke-type ! perm%myself ke-mask ! o>
\ revoke: 5843E2DC055E1F8BE14570A37B0F81146040A2CEE1D6C01B97C3BB801CDED864
x" 69D86C471E5FEED89478FB4260C898B6F69026BA4E78A9D815B53EB33CA9013A8E753EC381881FAAFFA66CD9DD47D3F2C0867E1A2B48067CA2188DF400C11074" key:new >o
x" 5905350A6B4B5DE29C2CA4562BB105EF570713CE648E38F6FBBB6D076D141B0A" ke-sk sec! +seckey
"anonymous" ke-nick $! $1367B086A255C9C2. d>64 ke-first! 0 ke-type ! o>
"anonymous" ke-nick $! nick! $1367B086A255C9C2. d>64 ke-first! 0 ke-type ! perm%myself ke-mask ! o>
\ revoke: 38A6FB42FF41A690A108DCA460CC0D15AE3C1C23FFFA9E92583FFD9FB16AD276
x" 7A0FFD3D31ED822D683D685EA5689C91CB170B54A82F0E53554D34584F90DB017750513CDC1F1DC7F8F61214ED4BC801CF70C3D5FC90F716F2363038ACEE58BD" key:new >o
x" AAB952DD5D1850F1B468EEF84F72552148070C3F499600FE362934970329FE04" ke-sk sec! +seckey
"alice" ke-nick $! $1367B086A25CEF70. d>64 ke-first! 1 ke-type ! o>
"alice" ke-nick $! nick! $1367B086A25CEF70. d>64 ke-first! 1 ke-type ! perm%myself ke-mask ! o>
\ revoke: D82AF4AE7CD3DA7316CE6F26BC5792F4F5E6B36B4C14F7D60C49B421AE1D5468
x" 1A20176C79D26402811945CFC241116BAFB52DD033492044DB5CFEECCA21E6E49F350B40A28D83B618361167D13B51A4EFCE919C7BB6BDCC570D9B7031A0428E" key:new >o
x" 6B65577985D851753ACFFFFB00360C70C267420132204A17F4468D9CACDB010F" ke-sk sec! +seckey
"bob" ke-nick $! $1367B086A26436A9. d>64 ke-first! 1 ke-type ! o>
"bob" ke-nick $! nick! $1367B086A26436A9. d>64 ke-first! 1 ke-type ! perm%myself ke-mask ! o>
\ revoke: 7821DA41AFBB8F7356E2EB7059BE70321D7ADCDAD8C504998627CBB9366AB752
x" 9483FBBB98A5BFE792206519FB2BAF9EE21FE863ABE981AB1C209123D40E1969EA7C68162DF5340142524D6BE3E407B065824D1E3582E6209CA03876F406EBCA" key:new >o
x" 693D7EF6BF0E0CEFB0654EB95AB7C729B8799F850CAB24B1211116ED72EA3602" ke-sk sec! +seckey
"eve" ke-nick $! $1367B086A26B4E42. d>64 ke-first! 1 ke-type ! o>
"eve" ke-nick $! nick! $1367B086A26B4E42. d>64 ke-first! 1 ke-type ! perm%myself ke-mask ! o>
;
test-keys
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment