nostr/strfry
1
0
Fork 0
mirror of https://github.com/hoytech/strfry.git synced 2025-06-19 17:37:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

generalise replaceable and ephemeral events

Browse Source
This commit is contained in:
Doug Hoyte
2023-02-25 01:26:27 -05:00
parent e4e79af121
commit a4549883eb
7 changed files with 109 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
test/writeTest.pl
View File

@ -2,6 +2,9 @@
use strict;
use Carp;
$SIG{ __DIE__ } = \&Carp::confess;
use Data::Dumper;
use JSON::XS;
@ -40,6 +43,17 @@ doTest({
verify => [ 1, ],
});
## Same, but explicit empty d tag
doTest({
events => [
qq{--sec $ids->[0]->{sec} --content "hi" --kind 10000 --created-at 5000 },
qq{--sec $ids->[0]->{sec} --content "hi 2" --kind 10000 --created-at 5001 --tag d '' },
qq{--sec $ids->[0]->{sec} --content "hi" --kind 10000 --created-at 5000 },
],
verify => [ 1, ],
});
## Replacement is dropped
doTest({
@ -159,6 +173,9 @@ doTest({
print "OK\n";
sub doTest {
my $spec = shift;
@ -200,7 +217,7 @@ sub addEvent {
my $eventJson = `cat test-eventXYZ.json`;
system(qq{ <test-eventXYZ.json ./strfry --config test/strfry.conf import --no-gc 2>/dev/null });
system(qq{ <test-eventXYZ.json ./strfry --config test/strfry.conf import 2>/dev/null });
system(qq{ rm test-eventXYZ.json });