#!perl -w
-# Copyright (C) 2020 all contributors <meta@public-inbox.org>
+# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org>
# Copyright (C) 2004- Simon Cozens, Casey West, Ricardo SIGNES
# This library is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
sub test {
my ($string, $expect, $info) = @_;
- # So stupid. -- rjbs, 2013-08-10
- $expect->{discrete} = $expect->{type};
- $expect->{composite} = $expect->{subtype};
-
local $_;
$info =~ s/\r/\\r/g;
$info =~ s/\n/\\n/g;