git.sur5r.net Git - i3/i3/blob - testcases/t/533-randr15.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3 #
   4 # Please read the following documents before working on tests:
   5 # • http://build.i3wm.org/docs/testsuite.html
   6 #   (or docs/testsuite)
   7 #
   8 # • http://build.i3wm.org/docs/lib-i3test.html
   9 #   (alternatively: perldoc ./testcases/lib/i3test.pm)
  10 #
  11 # • http://build.i3wm.org/docs/ipc.html
  12 #   (or docs/ipc)
  13 #
  14 # • http://onyxneon.com/books/modern_perl/modern_perl_a4.pdf
  15 #   (unless you are already familiar with Perl)
  16 #
  17 # TODO: Description of this file.
  18 # Ticket: #999
  19 # Bug still in: 4.13-12-g2ff3d9d
  20 use File::Temp qw(tempfile);
  21 use i3test i3_autostart => 0;
  22
  23 my $config = <<EOT;
  24 # i3 config file (v4)
  25 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
  26
  27 EOT
  28
  29 my ($outfh, $outname) = tempfile('i3-randr15reply-XXXXXX', UNLINK => 1);
  30
  31 # Prepare a RRGetMonitors reply, see A.2.4 in
  32 # https://cgit.freedesktop.org/xorg/proto/randrproto/tree/randrproto.txt
  33 my $reply = pack('cxSLLLLx[LLL]',
  34      1, # reply
  35      0, # sequence (will be filled in by inject_randr15)
  36      # 56 = length($reply) + length($monitor1)
  37      # 32 = minimum X11 reply length
  38      (56-32) / 4, # length in words
  39      0, # timestamp TODO
  40      1, # nmonitors
  41      0); # noutputs
  42
  43 # Manually intern _NET_CURRENT_DESKTOP as $x->atom will not create atoms if
  44 # they are not yet interned.
  45 my $atom_cookie = $x->intern_atom(0, length("DP3"), "DP3");
  46 my $DP3 = $x->intern_atom_reply($atom_cookie->{sequence})->{atom};
  47
  48 # MONITORINFO is defined in A.1.1 in
  49 # https://cgit.freedesktop.org/xorg/proto/randrproto/tree/randrproto.txt
  50 my $monitor1 = pack('LccSssSSLL',
  51         $DP3, # name (ATOM)
  52         1, # primary
  53         1, # automatic
  54         0, # ncrtcs
  55         0, # x
  56         0, # y
  57         3840, # width in pixels
  58         2160, # height in pixels
  59         520, # width in millimeters
  60         290); # height in millimeters
  61
  62 print $outfh $reply;
  63 print $outfh $monitor1;
  64
  65 close($outfh);
  66
  67 my $pid = launch_with_config($config, inject_randr15 => $outname);
  68
  69 cmd 'nop';
  70
  71 exit_gracefully($pid);
  72
  73 done_testing;