### ----------------------------------------------------
### -- JSON::Marshal
### -- Licenses: Artistic-2.0
### -- Authors: Jonathan Stowe <jns+git@gellyfish.co.uk>
### -- File: t/110-skip.t
### ----------------------------------------------------
#!/usr/bin/env raku

use v6;

use Test;

use JSON::Marshal;
use JSON::Fast;

class WithSkip {
    has Str $.skipped is json-skip = "skipped";
    has Str $.not-skipped = "not skipped";
}


my $c = WithSkip.new;

my $json = marshal($c);

my %data = from-json($json);

ok !(%data<skipped>:exists), "the skipped attribute isn't in the JSON";
ok %data<not-skipped>:exists, "the not skipped attribute is in the JSON";


done-testing;

# vim: ft=raku



