PrivateCoffee/travelynx
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
travelynx/t/22-transit-visibility.t
Birte Kristina Friesel 47f76da4f8
Multi-backend support 
Squashed commit of the following:

commit 92518024ba295456358618c0e8180bd8e996fdf1
Author: Birte Kristina Friesel <birte.friesel@uos.de>
Date:   Fri Jul 26 18:39:46 2024 +0200

    add_or_update station: remove superfluos 'new backend id := old backend id'

commit df21c20c6e4c86454f8a9ac69121404415217f2a
Author: Birte Kristina Friesel <birte.friesel@uos.de>
Date:   Fri Jul 26 18:35:51 2024 +0200

    revert connection targets min_count to 3

commit be335cef07d0b42874f5fc1de4a1d13396e8e807
Author: Birte Kristina Friesel <birte.friesel@uos.de>
Date:   Fri Jul 26 18:20:05 2024 +0200

    mention backend selection in API documentation

commit 9f41828fb4f18fd707e0087def3032e8d4c8d7d8
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date:   Thu Jul 25 20:19:23 2024 +0200

    use_history: not all backends provide route data in departure monitor

commit 09714b4d89684b8331d0e96f564a4c7432318f70
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date:   Thu Jul 25 20:11:44 2024 +0200

    disambiguation: pass correct hafas parameter

commit 8cdf1120fc32155dc6525be64601b7c10a9c7f52
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date:   Thu Jul 25 20:11:28 2024 +0200

    _checked_in: hide Zuglauf link for non-db checkins

commit 7455653f541198e0e0a6d11aed421487ffdb6285
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date:   Thu Jul 25 20:01:47 2024 +0200

    debug output

commit b9cda07f85601a58ea32dbdacdd5399f302db52b
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date:   Thu Jul 25 19:09:07 2024 +0200

    fix remaining get_connection_targets / get_connecting_trains_p invocations

commit 2759d7258c37c7498905cfe19f6b4c4f6d16bd21
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date:   Wed Jul 24 20:50:12 2024 +0200

    support non-DB HAFAS backends (WiP)
2024-07-26 18:55:58 +02:00

488 lines
13 KiB
Perl
Raw Blame History

#!/usr/bin/env perl
# Copyright (C) 2023 Birte Kristina Friesel <derf@finalrewind.org>
#
# SPDX-License-Identifier: MIT
use Mojo::Base -strict;
# Tests journey entry and statistics
use Test::More;
use Test::Mojo;
use DateTime;
use Travel::Status::DE::IRIS::Result;
# Include application
use FindBin;
require "$FindBin::Bin/../index.pl";
my $t = Test::Mojo->new('Travelynx');
if ( not $t->app->config->{db} ) {
plan( skip_all => 'No database configured' );
}
$t->app->pg->db->query('drop schema if exists travelynx_test_22 cascade');
$t->app->pg->db->query('create schema travelynx_test_22');
$t->app->pg->db->query('set search_path to travelynx_test_22');
$t->app->pg->on(
connection => sub {
my ( $pg, $dbh ) = @_;
$dbh->do('set search_path to travelynx_test_22');
}
);
$t->app->config->{mail}->{disabled} = 1;
$ENV{__TRAVELYNX_TEST_MINI_IRIS} = 1;
$t->app->start( 'database', 'migrate' );
my $u = $t->app->users;
sub login {
my %opt = @_;
my $csrf_token
= $t->ua->get('/login')->res->dom->at('input[name=csrf_token]')
->attr('value');
$t->post_ok(
'/login' => form => {
csrf_token => $csrf_token,
user => $opt{user},
password => $opt{password},
}
);
$t->status_is(302)->header_is( location => '/' );
}
sub logout {
my $csrf_token
= $t->ua->get('/account')->res->dom->at('input[name=csrf_token]')
->attr('value');
$t->post_ok(
'/logout' => form => {
csrf_token => $csrf_token,
}
);
$t->status_is(302)->header_is( location => '/login' );
}
sub test_intransit_visibility {
my %opt = @_;
if ( $opt{set_default_visibility} ) {
my %p = %{ $u->get_privacy_by( uid => $opt{uid} ) };
$p{default_visibility} = $opt{set_default_visibility};
$u->set_privacy(
uid => $opt{uid},
%p
);
}
if ( $opt{set_visibility} ) {
$t->app->in_transit->update_visibility(
uid => $opt{uid},
visibility => $opt{set_visibility}
);
}
my $status = $t->app->get_user_status( $opt{uid} );
my $token
= $status->{sched_departure}->epoch
. q{?token=}
. $status->{dep_eva} . q{-}
. $status->{timestamp}->epoch % 337;
my $j_token
= $status->{dep_eva} . q{-}
. $status->{timestamp}->epoch % 337 . q{-}
. $status->{sched_departure}->epoch;
my $desc
= "in_transit vis=$opt{effective_visibility_str} (from $opt{visibility_str})";
is( $status->{visibility}, $opt{visibility}, $desc );
is( $status->{visibility_str}, $opt{visibility_str}, $desc );
is( $status->{effective_visibility}, $opt{effective_visibility}, $desc );
is( $status->{effective_visibility_str},
$opt{effective_visibility_str}, $desc );
if ( $opt{public} ) {
$t->get_ok('/status/test1')->status_is(200)->content_like(qr{DPN 667});
$t->get_ok('/ajax/status/test1.html')->status_is(200)
->content_like(qr{DPN 667});
$t->get_ok('/p/test1')->status_is(200)->content_like(qr{DPN 667});
}
else {
$t->get_ok('/status/test1')->status_is(200)
->content_like(qr{nicht eingecheckt});
$t->get_ok('/ajax/status/test1.html')->status_is(200)
->content_like(qr{nicht eingecheckt});
$t->get_ok('/p/test1')->status_is(200)
->content_like(qr{nicht eingecheckt});
}
if ( $opt{with_token} ) {
$t->get_ok("/status/test1/$token")->status_is(200)
->content_like(qr{DPN 667});
$t->get_ok("/ajax/status/test1.html?token=$j_token")->status_is(200)
->content_like(qr{DPN 667});
}
else {
$t->get_ok("/status/test1/$token")->status_is(200)
->content_like(qr{nicht eingecheckt});
$t->get_ok("/ajax/status/test1.html?token=$j_token")->status_is(200)
->content_like(qr{nicht eingecheckt});
}
login(
user => 'test1',
password => 'password1'
);
# users can see their own status if visibility is >= followrs
if ( $opt{effective_visibility} >= 60 ) {
$t->get_ok('/status/test1')->status_is(200)->content_like(qr{DPN 667});
$t->get_ok('/ajax/status/test1.html')->status_is(200)
->content_like(qr{DPN 667});
$t->get_ok('/p/test1')->status_is(200)->content_like(qr{DPN 667});
}
else {
$t->get_ok('/status/test1')->status_is(200)
->content_like(qr{nicht eingecheckt});
$t->get_ok('/ajax/status/test1.html')->status_is(200)
->content_like(qr{nicht eingecheckt});
$t->get_ok('/p/test1')->status_is(200)
->content_like(qr{nicht eingecheckt});
}
# users can see their own status with token if visibility is >= unlisted
if ( $opt{effective_visibility} >= 30 ) {
$t->get_ok("/status/test1/$token")->status_is(200)
->content_like(qr{DPN 667});
$t->get_ok("/ajax/status/test1.html?token=$j_token")->status_is(200)
->content_like(qr{DPN 667});
}
else {
$t->get_ok("/status/test1/$token")->status_is(200)
->content_like(qr{nicht eingecheckt});
$t->get_ok("/ajax/status/test1.html?token=$j_token")->status_is(200)
->content_like(qr{nicht eingecheckt});
}
logout();
login(
user => 'test2',
password => 'password2'
);
# uid2 can see uid1 if visibility is >= followers
if ( $opt{effective_visibility} >= 60 ) {
$t->get_ok('/status/test1')->status_is(200)->content_like(qr{DPN 667});
$t->get_ok('/ajax/status/test1.html')->status_is(200)
->content_like(qr{DPN 667});
$t->get_ok('/p/test1')->status_is(200)->content_like(qr{DPN 667});
}
else {
$t->get_ok('/status/test1')->status_is(200)
->content_like(qr{nicht eingecheckt});
$t->get_ok('/ajax/status/test1.html')->status_is(200)
->content_like(qr{nicht eingecheckt});
$t->get_ok('/p/test1')->status_is(200)
->content_like(qr{nicht eingecheckt});
}
# uid2 can see uid1 with token if visibility is >= unlisted
if ( $opt{effective_visibility} >= 30 ) {
$t->get_ok("/status/test1/$token")->status_is(200)
->content_like(qr{DPN 667});
$t->get_ok("/ajax/status/test1.html?token=$j_token")->status_is(200)
->content_like(qr{DPN 667});
}
else {
$t->get_ok("/status/test1/$token")->status_is(200)
->content_like(qr{nicht eingecheckt});
$t->get_ok("/ajax/status/test1.html?token=$j_token")->status_is(200)
->content_like(qr{nicht eingecheckt});
}
logout();
login(
user => 'test3',
password => 'password3'
);
# uid3 can see uid1 if visibility is >= travelynx
if ( $opt{effective_visibility} >= 80 ) {
$t->get_ok('/status/test1')->status_is(200)->content_like(qr{DPN 667});
$t->get_ok('/ajax/status/test1.html')->status_is(200)
->content_like(qr{DPN 667});
$t->get_ok('/p/test1')->status_is(200)->content_like(qr{DPN 667});
}
else {
$t->get_ok('/status/test1')->status_is(200)
->content_like(qr{nicht eingecheckt});
$t->get_ok('/ajax/status/test1.html')->status_is(200)
->content_like(qr{nicht eingecheckt});
$t->get_ok('/p/test1')->status_is(200)
->content_like(qr{nicht eingecheckt});
}
# uid3 can see uid1 with token if visibility is >= unlisted
if ( $opt{effective_visibility} >= 30 ) {
$t->get_ok("/status/test1/$token")->status_is(200)
->content_like(qr{DPN 667});
$t->get_ok("/ajax/status/test1.html?token=$j_token")->status_is(200)
->content_like(qr{DPN 667});
}
else {
$t->get_ok("/status/test1/$token")->status_is(200)
->content_like(qr{nicht eingecheckt});
$t->get_ok("/ajax/status/test1.html?token=$j_token")->status_is(200)
->content_like(qr{nicht eingecheckt});
}
logout();
}
my $uid1 = $u->add(
name => 'test1',
email => 'test1@example.org',
token => 'abcd',
password => 'password1',
);
my $uid2 = $u->add(
name => 'test2',
email => 'test2@example.org',
token => 'efgh',
password => 'password2',
);
my $uid3 = $u->add(
name => 'test3',
email => 'test3@example.org',
token => 'ijkl',
password => 'password3',
);
$u->verify_registration_token(
uid => $uid1,
token => 'abcd'
);
$u->verify_registration_token(
uid => $uid2,
token => 'efgh'
);
$u->verify_registration_token(
uid => $uid3,
token => 'ijkl'
);
$u->set_social(
uid => $uid1,
accept_follows => 1
);
$u->set_social(
uid => $uid2,
accept_follows => 1
);
$u->set_social(
uid => $uid3,
accept_follows => 1
);
$u->follow(
uid => $uid2,
target => $uid1
);
is(
$u->get_relation(
subject => $uid2,
object => $uid1
),
'follows'
);
is(
$u->get_relation(
subject => $uid1,
object => $uid2
),
undef
);
my $dep = DateTime->now;
my $arr = $dep->clone->add( hours => 1 );
my $train_dep = Travel::Status::DE::IRIS::Result->new(
classes => 'N',
type => 'DPN',
train_no => '667',
raw_id => '1234-2306251312-1',
departure_ts => '2306251312',
platform => 8,
station => 'Aachen Hbf',
station_uic => 8000001,
route_post => 'Mainz Hbf|Aalen Hbf',
);
my $train_arr = Travel::Status::DE::IRIS::Result->new(
classes => 'N',
type => 'DPN',
train_no => '667',
raw_id => '1234-2306251312-3',
arrival_ts => '2306252000',
platform => 1,
station => 'Aalen Hbf',
station_uic => 8000002,
route_pre => 'Aachen Hbf|Mainz Hbf',
);
$t->app->in_transit->add(
uid => $uid1,
departure_eva => 8000001,
train => $train_dep,
route => [],
backend_id => $t->app->stations->get_backend_id( iris => 1 ),
);
$t->app->in_transit->set_arrival_eva(
uid => $uid1,
arrival_eva => 8000002,
);
test_intransit_visibility(
uid => $uid1,
visibility => undef,
visibility_str => 'default',
effective_visibility => 30,
effective_visibility_str => 'unlisted',
public => 0,
with_token => 1,
);
test_intransit_visibility(
uid => $uid1,
set_default_visibility => 10,
visibility => undef,
visibility_str => 'default',
effective_visibility => 10,
effective_visibility_str => 'private',
public => 0,
with_token => 0,
);
test_intransit_visibility(
uid => $uid1,
set_default_visibility => 30,
visibility => undef,
visibility_str => 'default',
effective_visibility => 30,
effective_visibility_str => 'unlisted',
public => 0,
with_token => 1,
);
test_intransit_visibility(
uid => $uid1,
set_default_visibility => 60,
visibility => undef,
visibility_str => 'default',
effective_visibility => 60,
effective_visibility_str => 'followers',
public => 0,
with_token => 1,
);
test_intransit_visibility(
uid => $uid1,
set_default_visibility => 80,
visibility => undef,
visibility_str => 'default',
effective_visibility => 80,
effective_visibility_str => 'travelynx',
public => 0,
with_token => 1,
);
test_intransit_visibility(
uid => $uid1,
set_default_visibility => 100,
visibility => undef,
visibility_str => 'default',
effective_visibility => 100,
effective_visibility_str => 'public',
public => 1,
with_token => 1,
);
test_intransit_visibility(
uid => $uid1,
set_visibility => 'private',
visibility => 10,
visibility_str => 'private',
effective_visibility => 10,
effective_visibility_str => 'private',
public => 0,
with_token => 0,
);
test_intransit_visibility(
uid => $uid1,
set_visibility => 'unlisted',
visibility => 30,
visibility_str => 'unlisted',
effective_visibility => 30,
effective_visibility_str => 'unlisted',
public => 0,
with_token => 1,
);
test_intransit_visibility(
uid => $uid1,
set_visibility => 'followers',
visibility => 60,
visibility_str => 'followers',
effective_visibility => 60,
effective_visibility_str => 'followers',
public => 0,
with_token => 1,
);
test_intransit_visibility(
uid => $uid1,
set_visibility => 'travelynx',
visibility => 80,
visibility_str => 'travelynx',
effective_visibility => 80,
effective_visibility_str => 'travelynx',
public => 0,
with_token => 1,
);
test_intransit_visibility(
uid => $uid1,
set_visibility => 'public',
visibility => 100,
visibility_str => 'public',
effective_visibility => 100,
effective_visibility_str => 'public',
public => 1,
with_token => 1,
);
$t->app->in_transit->update_visibility(
uid => $uid1,
visibility => undef,
);
test_intransit_visibility(
uid => $uid1,
set_default_visibility => 10,
visibility => undef,
visibility_str => 'default',
effective_visibility => 10,
effective_visibility_str => 'private',
public => 0,
with_token => 0,
);
$t->app->pg->db->query('drop schema travelynx_test_22 cascade');
done_testing();
Reference in a new issue View git blame Copy permalink