Commits

Toby Inkster committed b398104 Draft

xt

  • Participants
  • Parent commits 2cff3d4

Comments (0)

Files changed (9)

File lib/JSON/Hyper.pm

 
 sub ua
 {
-	my $self = shift;	
+	my $self = shift;
 	$self = {} unless blessed($self);
 	
 	if (@_)
 
 Returns the original schema as a hashref/arrayref structure.
 
-=back
+=item C<< ua >>
 
-=over 4
+Get/set the LWP::UserAgent instance used to retrieve things.
 
 =item C<< find_links($object, $base) >>
 
 
 =back
 
+=head2 Utilities
+
+=over
+
+=item C<< JSON::Hyper::json_ref() >>
+
+Returns the JSON referencing hyperschema as a hashref.
+
+=back
+
 =head1 BUGS
 
 Please report any bugs to L<http://rt.cpan.org/>.

File lib/JSON/Hyper/Link.pm

 A method C<target_schema> is also available if you're alergic to camelCase,
 but C<targetSchema> is the only attribute recognised by the constructor.
 
+=begin trustme
+
+=item C<target_schema>
+
+=end trustme
+
 =item C<method>
 
 The HTTP method recommended for interacting with the URL. If undef, then
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
+

File xt/02pod_coverage.t

+use XT::Util;
+use Test::More;
+use Test::Pod::Coverage;
+
+plan skip_all => __CONFIG__->{skip_all}
+	if __CONFIG__->{skip_all};
+
+if ( __CONFIG__->{modules} )
+{
+	my @modules = @{ __CONFIG__->{modules} };
+	pod_coverage_ok($_, "$_ is covered") for @modules;
+	done_testing(scalar @modules);
+}
+else
+{
+	all_pod_coverage_ok();
+}
+

File xt/03meta_uptodate.config

+{"package":"JSON-Hyper"}

File xt/03meta_uptodate.t

+use XT::Util;
+use Test::More tests => 1;
+use Test::RDF::DOAP::Version;
+doap_version_ok(__CONFIG__->{package}, __CONFIG__->{version_from});
+
+use Test::EOL;
+all_perl_files_ok();
+use Test::Tabs;
+all_perl_files_ok();

File xt/06versions.t

+use XT::Util;
+use Test::More;
+use Test::HasVersion;
+
+plan skip_all => __CONFIG__->{skip_all}
+	if __CONFIG__->{skip_all};
+
+if ( __CONFIG__->{modules} )
+{
+	my @modules = @{ __CONFIG__->{modules} };
+	pm_version_ok($_, "$_ is covered") for @modules;
+	done_testing(scalar @modules);
+}
+else
+{
+	all_pm_version_ok();
+}
+