Skip to content

GitLab

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