view release on metacpan or  search on metacpan

lib/Test/Attean/W3CManifestTestSuite.pm  view on Meta::CPAN

# 			} else {
# # 				if ($self->debug) {
# # 					warn $query->as_string;
# # 				}
# 				fail("$testname - $filename (unexpected successful parse)");
# 			}
# 		}
# 	}
# }

sub update_eval_test {
	my $self		= shift;
	my $model		= shift;
	my $test		= shift;
	my %args		= @_;
	my $specVersion	= $args{'specVersion'} // '1.1';

	my ($action)	= $model->objects( $test, iri("${MF}action") )->elements;
	my ($result)	= $model->objects( $test, iri("${MF}result") )->elements;
	my @reqs		= $model->objects( $test, iri("${MF}requires") )->elements;
	my ($approved)	= $model->objects( $test, iri("${DAWGT}approval") )->elements;