commit b28d21fd50e855a0c727a68e59f7049e58bcb3b4 · pyrox.dev/nixpkgs

+25

nixos/lib/test-driver/Machine.pm

···

       504
       504
        
           }, { image => $name } );

     

       505
       505
        
       }

     

       506
       506
        
       

     

       507
       507
       +
       # Get the text of TTY<n>

     

       508
       508
       +
       sub getTTYText {

     

       509
       509
       +
           my ($self, $tty) = @_;

     

       510
       510
       +
       

     

       511
       511
       +
           my ($status, $out) = $self->execute("fold -w 80 /dev/vcs${tty}");

     

       512
       512
       +
           return $out;

     

       513
       513
       +
       }

     

       514
       514
       +
       

     

       515
       515
       +
       # Wait until TTY<n>'s text matches a particular regular expression

     

       516
       516
       +
       sub waitUntilTTYMatches {

     

       517
       517
       +
           my ($self, $tty, $regexp) = @_;

     

       518
       518
       +
       

     

       519
       519
       +
           $self->nest("waiting for $regexp to appear on tty $tty", sub {

     

       520
       520
       +
               retry sub {

     

       521
       521
       +
                   return 1 if $self->getTTYText($tty) =~ /$regexp/;

     

       522
       522
       +
               }

     

       523
       523
       +
           });

     

       524
       524
       +
       }

     

       525
       525
       +
       

     

       526
       526
       +
       # Debugging: Dump the contents of the TTY<n>

     

       527
       527
       +
       sub dumpTTYContents {

     

       528
       528
       +
           my ($self, $tty) = @_;

     

       529
       529
       +
       

     

       530
       530
       +
           $self->execute("fold -w 80 /dev/vcs${tty} | systemd-cat");

     

       531
       531
       +
       }

     

       507
       532
        
       

     

       508
       533
        
       # Take a screenshot and return the result as text using optical character

     

       509
       534
        
       # recognition.

+3 -2

nixos/tests/login.nix

···

       33
       33
        
       

     

       34
       34
        
             # Log in as alice on a virtual console.

     

       35
       35
        
             subtest "virtual console login", sub {

     

       36
       36
       -
                 $machine->sleep(2); # urgh: wait for username prompt

     

       36
       36
       +
                 $machine->waitUntilTTYMatches(2, "login: ");

     

       37
       37
        
                 $machine->sendChars("alice\n");

     

       38
       38
       +
                 $machine->waitUntilTTYMatches(2, "login: alice");

     

       38
       39
        
                 $machine->waitUntilSucceeds("pgrep login");

     

       39
       39
       -
                 $machine->sleep(2); # urgh: wait for `Password:'

     

       40
       40
       +
                 $machine->waitUntilTTYMatches(2, "Password: ");

     

       40
       41
        
                 $machine->sendChars("foobar\n");

     

       41
       42
        
                 $machine->waitUntilSucceeds("pgrep -u alice bash");

     

       42
       43
        
                 $machine->sendChars("touch done\n");