onents(
"InflateColumn::DateTime",
"InflateColumn::Serializer",
"InflateColumn::Serializer::JSON",
);
__PACKAGE__->table("primary_email");
__PACKAGE__->add_columns(
"user_id",
{ data_type =>
onents(
"InflateColumn::DateTime",
"InflateColumn::Serializer",
"InflateColumn::Serializer::JSON",
);
__PACKAGE__->table("versions");
__PACKAGE__->add_columns(
"version_id",
{ data_type => "
nflate => DBIx::Class::InflateColumn::Serializer::JSON->get_unfreezer('rendered', {}),
deflate => DBIx::Class::InflateColumn::Serializer::JSON->get_freezer('rendered', {}),
},
);
__PACKAG
inflate => DBIx::Class::InflateColumn::Serializer::JSON->get_unfreezer('facets', {}),
deflate => DBIx::Class::InflateColumn::Serializer::JSON->get_freezer('facets', {}),
},
);
sub run {
= shift;
return App::Yath::Schema::ImportModes::event_in_mode(event => $self, @_);
}
sub TO_JSON {
my $self = shift;
my %cols = $self->get_all_fields;
return \%cols;
}
sub st_line_d
inflate => DBIx::Class::InflateColumn::Serializer::JSON->get_unfreezer('data', {}),
deflate => DBIx::Class::InflateColumn::Serializer::JSON->get_freezer('data', {}),
},
);
1;
__END__
=
sig } sort { $a->job_try_ord <=> $b->job_try_ord } $self->jobs_tries;
$out //= ';';
}
sub TO_JSON {
my $self = shift;
my %cols = $self->get_all_fields;
$cols{short_file} = $self->
nflate => DBIx::Class::InflateColumn::Serializer::JSON->get_unfreezer('metadata', {}),
deflate => DBIx::Class::InflateColumn::Serializer::JSON->get_freezer('metadata', {}),
},
);
sub huma
elect' => ['data IS NOT NULL AS has_data'],
'+as' => ['has_data'],
})->all;
}
sub TO_JSON {
my $self = shift;
my %cols = $self->get_all_fields;
$cols{user} //= $self->user
flate => DBIx::Class::InflateColumn::Serializer::JSON->get_unfreezer('parameters', {}),
deflate => DBIx::Class::InflateColumn::Serializer::JSON->get_freezer('parameters', {}),
},
);
sub n
::Schema::Result::RunField;
use utf8;
use strict;
use warnings;
use Test2::Harness::Util::JSON qw/decode_json/;
use Carp qw/confess/;
confess "You must first load a App::Yath::Schema::NAME module"
:InflateColumn::Serializer::JSON->get_unfreezer('data', {}),
deflate => DBIx::Class::InflateColumn::Serializer::JSON->get_freezer('data', {}),
},
);
sub TO_JSON {
my $self = shift;
my %cols = $self->get_all_fields;
$cols{data} = decode_json($cols{data}) if $cols{data} && !ref($cols{data});
return \%cols;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
App::Yath::Sch
onents(
"InflateColumn::DateTime",
"InflateColumn::Serializer",
"InflateColumn::Serializer::JSON",
);
__PACKAGE__->table("log_files");
__PACKAGE__->add_columns(
"log_file_id",
{ data_type =>
onents(
"InflateColumn::DateTime",
"InflateColumn::Serializer",
"InflateColumn::Serializer::JSON",
);
__PACKAGE__->table("primary_email");
__PACKAGE__->add_columns(
"user_id",
{ data_type =>
onents(
"InflateColumn::DateTime",
"InflateColumn::Serializer",
"InflateColumn::Serializer::JSON",
);
__PACKAGE__->table("binaries");
__PACKAGE__->add_columns(
"event_uuid",
{ data_type => "
::Harness::Util::Queue;
use Test2::Harness::Util::File::JSON;
use Test2::Harness::IPC;
use Test2::Harness::Util::JSON qw/encode_json decode_json/;
use Test2::Harness::Util qw/mod2file open_file parse
$self->write_settings_to($dir, 'settings.json');
my $run_queue = Test2::Harness::Util::Queue->new(file => File::Spec->catfile($dir, 'run_queue.jsonl'));
$run_queue->start();
$self->s
r the persistent runner\n\n" if $settings->runner->daemon;
}
Test2::Harness::Util::File::JSON->new(name => $pfile)->write({
pid => $pid,
dir => $dir,
version
161';
use File::Spec;
use App::Yath::Util qw/isolate_stdout/;
use Test2::Harness::Util::JSON qw/decode_json/;
use Test2::Harness::Util qw/mod2file/;
use Test2::Harness::Run;
use parent 'App::Yath
ttings->new(File::Spec->catfile($dir, 'settings.json'));
require(mod2file($collector_class));
my $run = Test2::Harness::Run->new(%{decode_json(<STDIN>)});
my $collector = $collector_cla
# as_json may already have the json form of the event cached, if so
# we can avoid doing an extra call to encode_json
action => sub { print $fh defined($_[0]) ? $_[0]->as_json . "\n"
{ 'log' }
sub summary { "Replay a test run from an event log" }
sub cli_args { "[--] event_log.jsonl[.gz|.bz2] [job1, job2, ...]" }
sub description {
return <<" EOT";
This yath command will
e" unless $self->{+LOG_FILE} =~ m/\.jsonl(\.(gz|bz2))?$/;
my $jobs = @$args ? {map {$_ => 1} @$args} : undef;
my $stream = Test2::Harness::Util::File::JSONL->new(name => $self->{+LOG_FILE});
ject-yath-persist.json. If no project is specified then it will fall back to the current directory. If the current directory is not writable it will default to /tmp/yath-persist.json which limits you
ject-yath-persist.json. If no project is specified then it will fall back to the current directory. If the current directory is not writable it will default to /tmp/yath-persist.json which limits you
o/log.jsonl
=item --cover-from http://example.com/coverage
=item --cover-from path/to/coverage.jsonl
=item --no-cover-from
This can be a test log, a coverage dump (old style json or new jsonl form
json
=item --cover-from-type jsonl
=item --cover-from-type log
=item --no-cover-from-type
File type for coverage source. Usually it can be detected, but when it cannot be you should specify. "json
m::Table();
use File::Spec();
use Test2::Harness::Runner::State;
use Test2::Harness::Util::File::JSON();
use Test2::Harness::Util::Queue();
use parent 'App::Yath::Command::run';
use Test2::Harness::
ject-yath-persist.json. If no project is specified then it will fall back to the current directory. If the current directory is not writable it will default to /tmp/yath-persist.json which limits you
o/log.jsonl
=item --cover-from http://example.com/coverage
=item --cover-from path/to/coverage.jsonl
=item --no-cover-from
This can be a test log, a coverage dump (old style json or new jsonl form
mmand::do;
use strict;
use warnings;
our $VERSION = '1.000161';
use Test2::Harness::Util::File::JSON;
use Test2::Harness::Util qw/open_file/;
use parent 'App::Yath::Command';
use Test2::Harness::U
ject-yath-persist.json. If no project is specified then it will fall back to the current directory. If the current directory is not writable it will default to /tmp/yath-persist.json which limits you
o/log.jsonl
=item --cover-from http://example.com/coverage
=item --cover-from path/to/coverage.jsonl
=item --no-cover-from
This can be a test log, a coverage dump (old style json or new jsonl form
ION = '1.000161';
use Time::HiRes qw/sleep/;
use File::Spec();
use Test2::Harness::Util::File::JSON();
use Test2::Harness::Util::Queue();
use Test2::Harness::Util qw/open_file/;
use App::Yath::Uti
ject-yath-persist.json. If no project is specified then it will fall back to the current directory. If the current directory is not writable it will default to /tmp/yath-persist.json which limits you
o/log.jsonl
=item --cover-from http://example.com/coverage
=item --cover-from path/to/coverage.jsonl
=item --no-cover-from
This can be a test log, a coverage dump (old style json or new jsonl form
er_pid = $$;
my $settings = Test2::Harness::Settings->new(File::Spec->catfile($dir, 'settings.json'));
my $name = $ENV{NESTED_YATH} ? 'yath-nested-runner' : 'yath-runner';
$name = $settin
ject-yath-persist.json. If no project is specified then it will fall back to the current directory. If the current directory is not writable it will default to /tmp/yath-persist.json which limits you
o/log.jsonl
=item --cover-from http://example.com/coverage
=item --cover-from path/to/coverage.jsonl
=item --no-cover-from
This can be a test log, a coverage dump (old style json or new jsonl form