\ net2o key storage tests

\ Copyright (C) 2014   Bernd Paysan

\ This program is free software: you can redistribute it and/or modify
\ it under the terms of the GNU Affero General Public License as published by
\ the Free Software Foundation, either version 3 of the License, or
\ (at your option) any later version.

\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
\ GNU Affero General Public License for more details.

\ You should have received a copy of the GNU Affero General Public License
\ along with this program.  If not, see <http://www.gnu.org/licenses/>.

require ../net2o.fs

+debug

"testkey.n2o" r/w create-file throw to key-sfd

"This is a Test" ">passphrase key>default
"test" 2dup key#anon +gen-keys .rsk
"anonymous" 2dup key#anon +gen-keys .rsk
"alice" 2dup key#user +gen-keys .rsk
"bob" 2dup key#user +gen-keys .rsk
"eve" 2dup key#user +gen-keys .rsk

read-keys
.keys

bye