--- /dev/null
+use DBIx::Class::Fixtures;
+use Test::More;
+use Test::Fatal;
+use File::Path 'rmtree';
+
+use lib qw(t/lib/DBICTest);
+use Schema3;
+use Test::TempDir::Tiny;
+use IO::All;
+
+my $tempdir = tempdir;
+
+(my $schema = Schema3->connect(
+ 'DBI:SQLite::memory:','',''))->init_schema;
+
+ok my $row = $schema
+ ->resultset('Person')
+ ->first;
+
+ok $row->get_column('weight_to_height_ratio'),
+ 'has virtual column';
+
+my $fixtures = DBIx::Class::Fixtures
+ ->new({
+ config_dir => io->catfile(qw't var configs')->name,
+ debug => 0 });
+
+ok(
+ $fixtures->dump({
+ config => 'virtual-columns.json',
+ schema => $schema,
+ directory => io->catfile($tempdir, 'people')->name }),
+ 'fetch dump executed okay');
+
+ok $schema->resultset('Person')->delete;
+
+is exception {
+ $fixtures->populate({
+ no_deploy => 1,
+ schema => $schema,
+ directory => io->catfile($tempdir, 'people')->name
+ })
+}, undef, 'populated';
+
+$row = $schema->resultset('Person')->first;
+
+BAIL_OUT("can't continue without data") unless $row;
+
+ok $row->get_column('weight_to_height_ratio'),
+ 'still has virtual column';
+
+done_testing;
+
+END {
+ rmtree io->catfile(qw't var files')->name;
+ rmtree io->catfile($tempdir, 'people')->name;
+}