The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

THALJEF / Pinto-0.14 / t / 02-bowels / 54-revert.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121

              
#!perl
use strict;
use warnings;
use Test::More;
use lib 't/lib';
use Pinto::Tester;
#------------------------------------------------------------------------------
subtest "Revert to previous revision" => sub {
    my $t = Pinto::Tester->new;
    $t->populate('AUTHOR/Foo-1=Foo~1');
    my $reg1 = 'AUTHOR/Foo-1/Foo~1';
    my $rev1 = $t->get_stack->head;
    $t->registration_ok($reg1);
    $t->populate('AUTHOR/Foo-2=Foo~2');
    my $reg2 = 'AUTHOR/Foo-2/Foo~2';
    my $rev2 = $t->get_stack->head;
    $t->registration_ok($reg2);
    $t->run_ok(Revert => {});
    isnt $t->get_stack->head->id, $rev2->id, 'Created a new revision';
    $t->registration_ok($reg1, 'Reverted to rev1');
};
#------------------------------------------------------------------------------
subtest "Revert to specific revision" => sub {
    my $t = Pinto::Tester->new;
    $t->populate('AUTHOR/Foo-1=Foo~1');
    my $reg1 = 'AUTHOR/Foo-1/Foo~1';
    my $rev1 = $t->get_stack->head;
    $t->registration_ok($reg1);
    $t->populate('AUTHOR/Foo-2=Foo~2');
    my $reg2 = 'AUTHOR/Foo-2/Foo~2';
    my $rev2 = $t->get_stack->head;
    $t->registration_ok($reg2);
    $t->run_ok(Revert => {revision => "$rev1"});
    isnt $t->get_stack->head->id, $rev2->id, 'Created a new revision';
    $t->registration_ok($reg1, 'Reverted to rev1');
};
#------------------------------------------------------------------------------
subtest "Revert to root commit" => sub {
    my $t = Pinto::Tester->new;
    $t->populate('AUTHOR/Foo-1=Foo~1');
    my $reg1 = 'AUTHOR/Foo-1/Foo~1';
    my $rev1 = $t->get_stack->head;
    $t->registration_ok($reg1);
    $t->populate('AUTHOR/Foo-2=Foo~2');
    my $reg2 = 'AUTHOR/Foo-2/Foo~2';
    my $rev2 = $t->get_stack->head;
    $t->registration_ok($reg2);
    $t->run_ok(Revert => {revision => "0000"});
    $t->stack_is_empty_ok('master');
};
#------------------------------------------------------------------------------
subtest "Revert to unrelated revision" => sub {
    my $t = Pinto::Tester->new;
    $t->populate('AUTHOR/Foo-1=Foo~1');
    $t->registration_ok('AUTHOR/Foo-1/Foo~1');
    my $rev1 = $t->get_stack->head;
    $t->run_ok(Copy => {stack => 'master', to_stack => 'other'});
    $t->run_ok(Pin  => {stack => 'other', targets => 'Foo'});
    my $other_head = $t->get_stack('other')->head;
    isnt $other_head->id, $rev1->id, 'Other stack is on different rev';
    $t->run_throws_ok(Revert => {stack => 'master', revision => "$other_head"},
        qr/is not an ancestor/, "Reversion to unrelated revision is prohibited");
    # Forcng...
    $t->run_ok(Revert => {stack => 'master', revision => "$other_head", force => 1});
    $t->registration_ok('AUTHOR/Foo-1/Foo~1/other/*');
};
#------------------------------------------------------------------------------
subtest "Exceptions" => sub {
    my $t = Pinto::Tester->new;
    my $rev0 = $t->get_stack->head;
    $t->run_throws_ok(Revert => {revision => "$rev0"},
        qr/is the head of stack/, "Cannot revert to the current head");
    $t->run_throws_ok(Revert => {},
        qr/Cannot revert past the root/, "Cannot revert beyond root");
    #------------
    $t->populate('AUTHOR/Foo-1=Foo~1');
    $t->run_ok(Unregister => {targets => 'Foo'});
    $t->stack_is_empty_ok('master');  # Same state as $rev0
    $t->run_throws_ok(Revert => {revision => "$rev0"},
        qr/$rev0 is identical/);
};
#------------------------------------------------------------------------------
done_testing;