···

       
18
       
18
       
 
       


     

       
19
       
19
       
 
       
  enableOCR = true;

     

       
20
       
20
       
 
       


     

       
21
       
21
       
-
       
  machine.imports = [ ./common/x11.nix ];

     

       
21
       
21
       
+
       
  machine.imports = [ ./common/user-account.nix ./common/x11.nix ];

     

       
22
       
22
       
 
       
  machine.virtualisation.memorySize = 2047;

     

       
23
       
23
       
+
       
  machine.services.xserver.displayManager.auto.user = "alice";

     

       
23
       
24
       
 
       
  machine.environment.systemPackages = [ chromiumPkg ];

     

       
24
       
25
       
 
       


     

       
25
       
26
       
 
       
  startupHTML = pkgs.writeText "chromium-startup.html" ''

     
···

       
43
       
44
       
 
       
      xdoScript = pkgs.writeText "${name}.xdo" text;

     

       
44
       
45
       
 
       
    in "${pkgs.xdotool}/bin/xdotool '${xdoScript}'";

     

       
45
       
46
       
 
       
  in ''

     

       
47
       
47
       
+
       
    # Run as user alice

     

       
48
       
48
       
+
       
    sub ru ($) {

     

       
49
       
49
       
+
       
      my $esc = $_[0] =~ s/'/'\\${"'"}'/gr;

     

       
50
       
50
       
+
       
      return "su - alice -c '$esc'";

     

       
51
       
51
       
+
       
    }

     

       
52
       
52
       
+
       


     

       
46
       
53
       
 
       
    sub createNewWin {

     

       
47
       
54
       
 
       
      $machine->nest("creating a new Chromium window", sub {

     

       
48
       
48
       
-
       
        $machine->execute("${xdo "new-window" ''

     

       
55
       
55
       
+
       
        $machine->execute(ru "${xdo "new-window" ''

     

       
49
       
56
       
 
       
          search --onlyvisible --name "startup done"

     

       
50
       
57
       
 
       
          windowfocus --sync

     

       
51
       
58
       
 
       
          windowactivate --sync

     

       
52
       
59
       
 
       
        ''}");

     

       
53
       
53
       
-
       
        $machine->execute("${xdo "new-window" ''

     

       
60
       
60
       
+
       
        $machine->execute(ru "${xdo "new-window" ''

     

       
54
       
61
       
 
       
          key Ctrl+n

     

       
55
       
62
       
 
       
        ''}");

     

       
56
       
63
       
 
       
      });

     
···

       
58
       
65
       
 
       


     

       
59
       
66
       
 
       
    sub closeWin {

     

       
60
       
67
       
 
       
      Machine::retry sub {

     

       
61
       
61
       
-
       
        $machine->execute("${xdo "close-window" ''

     

       
68
       
68
       
+
       
        $machine->execute(ru "${xdo "close-window" ''

     

       
62
       
69
       
 
       
          search --onlyvisible --name "new tab"

     

       
63
       
70
       
 
       
          windowfocus --sync

     

       
64
       
71
       
 
       
          windowactivate --sync

     

       
65
       
72
       
 
       
        ''}");

     

       
66
       
66
       
-
       
        $machine->execute("${xdo "close-window" ''

     

       
73
       
73
       
+
       
        $machine->execute(ru "${xdo "close-window" ''

     

       
67
       
74
       
 
       
          key Ctrl+w

     

       
68
       
75
       
 
       
        ''}");

     

       
69
       
76
       
 
       
        for (1..20) {

     

       
70
       
70
       
-
       
          my ($status, $out) = $machine->execute("${xdo "wait-for-close" ''

     

       
77
       
77
       
+
       
          my ($status, $out) = $machine->execute(ru "${xdo "wait-for-close" ''

     

       
71
       
78
       
 
       
            search --onlyvisible --name "new tab"

     

       
72
       
79
       
 
       
          ''}");

     

       
73
       
80
       
 
       
          return 1 if $status != 0;

     
···

       
80
       
87
       
 
       
      my $ret = 0;

     

       
81
       
88
       
 
       
      $machine->nest("waiting for new Chromium window to appear", sub {

     

       
82
       
89
       
 
       
        for (1..20) {

     

       
83
       
83
       
-
       
          my ($status, $out) = $machine->execute("${xdo "wait-for-window" ''

     

       
90
       
90
       
+
       
          my ($status, $out) = $machine->execute(ru "${xdo "wait-for-window" ''

     

       
84
       
91
       
 
       
            search --onlyvisible --name "new tab"

     

       
85
       
92
       
 
       
            windowfocus --sync

     

       
86
       
93
       
 
       
            windowactivate --sync

     
···

       
113
       
120
       
 
       
    $machine->waitForX;

     

       
114
       
121
       
 
       


     

       
115
       
122
       
 
       
    my $url = "file://${startupHTML}";

     

       
116
       
116
       
-
       
    my $args = "--user-data-dir=/tmp/chromium-${channel}";

     

       
117
       
117
       
-
       
    $machine->execute(

     

       
118
       
118
       
-
       
      "ulimit -c unlimited; ".

     

       
119
       
119
       
-
       
      "chromium $args \"$url\" & disown"

     

       
120
       
120
       
-
       
    );

     

       
123
       
123
       
+
       
    $machine->execute(ru "ulimit -c unlimited; chromium \"$url\" & disown");

     

       
121
       
124
       
 
       
    $machine->waitForText(qr/startup done/);

     

       
122
       
122
       
-
       
    $machine->waitUntilSucceeds("${xdo "check-startup" ''

     

       
125
       
125
       
+
       
    $machine->waitUntilSucceeds(ru "${xdo "check-startup" ''

     

       
123
       
126
       
 
       
      search --sync --onlyvisible --name "startup done"

     

       
124
       
127
       
 
       
      # close first start help popup

     

       
125
       
128
       
 
       
      key -delay 1000 Escape

     
···

       
134
       
137
       
 
       
    $machine->screenshot("startup_done");

     

       
135
       
138
       
 
       


     

       
136
       
139
       
 
       
    testNewWin "check sandbox", sub {

     

       
137
       
137
       
-
       
      $machine->succeed("${xdo "type-url" ''

     

       
140
       
140
       
+
       
      $machine->succeed(ru "${xdo "type-url" ''

     

       
138
       
141
       
 
       
        search --sync --onlyvisible --name "new tab"

     

       
139
       
142
       
 
       
        windowfocus --sync

     

       
140
       
143
       
 
       
        type --delay 1000 "chrome://sandbox"

     

       
141
       
144
       
 
       
      ''}");

     

       
142
       
145
       
 
       


     

       
143
       
143
       
-
       
      $machine->succeed("${xdo "submit-url" ''

     

       
146
       
146
       
+
       
      $machine->succeed(ru "${xdo "submit-url" ''

     

       
144
       
147
       
 
       
        search --sync --onlyvisible --name "new tab"

     

       
145
       
148
       
 
       
        windowfocus --sync

     

       
146
       
149
       
 
       
        key --delay 1000 Return

     
···

       
148
       
151
       
 
       


     

       
149
       
152
       
 
       
      $machine->screenshot("sandbox_info");

     

       
150
       
153
       
 
       


     

       
151
       
151
       
-
       
      $machine->succeed("${xdo "submit-url" ''

     

       
154
       
154
       
+
       
      $machine->succeed(ru "${xdo "submit-url" ''

     

       
152
       
155
       
 
       
        search --sync --onlyvisible --name "sandbox status"

     

       
153
       
156
       
 
       
        windowfocus --sync

     

       
154
       
157
       
 
       
      ''}");

     

       
155
       
155
       
-
       
      $machine->succeed("${xdo "submit-url" ''

     

       
158
       
158
       
+
       
      $machine->succeed(ru "${xdo "submit-url" ''

     

       
156
       
159
       
 
       
        key --delay 1000 Ctrl+a Ctrl+c

     

       
157
       
160
       
 
       
      ''}");

     

       
158
       
161
       
 
       


     

       
159
       
159
       
-
       
      my $clipboard = $machine->succeed("${pkgs.xclip}/bin/xclip -o");

     

       
162
       
162
       
+
       
      my $clipboard = $machine->succeed(ru "${pkgs.xclip}/bin/xclip -o");

     

       
160
       
163
       
 
       
      die "sandbox not working properly: $clipboard"

     

       
161
       
164
       
 
       
      unless $clipboard =~ /namespace sandbox.*yes/mi

     

       
162
       
165
       
 
       
          && $clipboard =~ /pid namespaces.*yes/mi