Add meta tests

t/addbib/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/apply/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/ar/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/arch/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/arithmetic/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/asa/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/awk/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/banner/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/base64/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/basename/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/bc/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/cal/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/cat/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/chgrp/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__

t/ching/910.meta.t

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use JSON qw(decode_json);
+use Test::More;
+
+require './t/lib/common.pl';
+
+my $program = program_name();
+ok -e $program, "$program exists";
+
+my $output = `"$^X" util/extract_metadata $program`;
+my $json = decode_json( $output );
+
+subtest "required keys" => sub {
+	my $this = $json->{$program};
+	my @keys = qw(Name Description Author License);
+
+	ok( exists $this->{$_}, "has $_ key" ) for @keys;
+	};
+
+done_testing();
+
+__END__