Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {
- my $data = { q{foo} => [ q{bar}, { q{<=} => 33 } ] } ;
- my $encoded = to_toml( $data );
- # `it`, when used with `got BLOCK`, also detects `lives/throws` and acts accordingly
- # - when `throws` is presented, reports test failure if block lives
- # - otherwise reports test failure when block died
- it q (should successfully decode)
- => got { from_toml ($encoded) }
- => expect => $data
- ;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement