From 16237bfe213de6141d8100402f88ad6686394580 Mon Sep 17 00:00:00 2001
From: Derf Null <derf@finalrewind.org>
Date: Mon, 26 Jun 2023 20:18:27 +0200
Subject: [PATCH] use small stations database for some tests
---
lib/Travelynx/Command/database.pm | 8 ++++++++
t/02-registration.t | 1 +
t/11-journey-stats.t | 1 +
t/12-journey-edit.t | 1 +
t/21-relations.t | 1 +
t/22-visibility.t | 1 +
t/r-negative-delay.t | 1 +
7 files changed, 14 insertions(+)
diff --git a/lib/Travelynx/Command/database.pm b/lib/Travelynx/Command/database.pm
index 339fd42e..d15330d7 100644
--- a/lib/Travelynx/Command/database.pm
+++ b/lib/Travelynx/Command/database.pm
@@ -1658,6 +1658,11 @@ sub sync_stations {
my $count = 0;
for my $s ( Travel::Status::DE::IRIS::Stations::get_stations() ) {
my ( $ds100, $name, $eva, $lon, $lat ) = @{$s};
+ if ( $ENV{__TRAVELYNX_TEST_MINI_IRIS}
+ and ( $eva < 8000000 or $eva > 8000100 ) )
+ {
+ next;
+ }
$db->insert(
'stations',
{
@@ -1708,6 +1713,9 @@ sub sync_stations {
say 'Updating archived stations ...';
my $old_stations
= JSON->new->utf8->decode( scalar read_file('share/old_stations.json') );
+ if ( $ENV{__TRAVELYNX_TEST_MINI_IRIS} ) {
+ $old_stations = [];
+ }
for my $s ( @{$old_stations} ) {
$db->insert(
'stations',
diff --git a/t/02-registration.t b/t/02-registration.t
index 53f772f7..1f90e65d 100644
--- a/t/02-registration.t
+++ b/t/02-registration.t
@@ -33,6 +33,7 @@ $t->app->pg->on(
$t->app->config->{mail}->{disabled} = 1;
+$ENV{__TRAVELYNX_TEST_MINI_IRIS} = 1;
$t->app->start( 'database', 'migrate' );
my $csrf_token
diff --git a/t/11-journey-stats.t b/t/11-journey-stats.t
index b4ed046c..e03fb132 100644
--- a/t/11-journey-stats.t
+++ b/t/11-journey-stats.t
@@ -33,6 +33,7 @@ $t->app->pg->on(
$t->app->config->{mail}->{disabled} = 1;
+$ENV{__TRAVELYNX_TEST_MINI_IRIS} = 0;
$t->app->start( 'database', 'migrate' );
my $csrf_token
diff --git a/t/12-journey-edit.t b/t/12-journey-edit.t
index 3e963461..c716d7a0 100644
--- a/t/12-journey-edit.t
+++ b/t/12-journey-edit.t
@@ -35,6 +35,7 @@ $t->app->pg->on(
$t->app->config->{mail}->{disabled} = 1;
+$ENV{__TRAVELYNX_TEST_MINI_IRIS} = 0;
$t->app->start( 'database', 'migrate' );
my $csrf_token
diff --git a/t/21-relations.t b/t/21-relations.t
index 2432fb9c..ff85f7d0 100644
--- a/t/21-relations.t
+++ b/t/21-relations.t
@@ -33,6 +33,7 @@ $t->app->pg->on(
$t->app->config->{mail}->{disabled} = 1;
+$ENV{__TRAVELYNX_TEST_MINI_IRIS} = 1;
$t->app->start( 'database', 'migrate' );
my $u = $t->app->users;
diff --git a/t/22-visibility.t b/t/22-visibility.t
index 6e827c52..423f2b19 100644
--- a/t/22-visibility.t
+++ b/t/22-visibility.t
@@ -36,6 +36,7 @@ $t->app->pg->on(
$t->app->config->{mail}->{disabled} = 1;
+$ENV{__TRAVELYNX_TEST_MINI_IRIS} = 1;
$t->app->start( 'database', 'migrate' );
my $u = $t->app->users;
diff --git a/t/r-negative-delay.t b/t/r-negative-delay.t
index 41421095..d982aa5d 100644
--- a/t/r-negative-delay.t
+++ b/t/r-negative-delay.t
@@ -34,6 +34,7 @@ $t->app->pg->on(
$t->app->config->{mail}->{disabled} = 1;
+$ENV{__TRAVELYNX_TEST_MINI_IRIS} = 0;
$t->app->start( 'database', 'migrate' );
my $csrf_token
--
GitLab