File: floating-refs.t

package info (click to toggle)
libgtk3-perl 0.038-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 380 kB
  • sloc: perl: 4,228; makefile: 11
file content (22 lines) | stat: -rw-r--r-- 386 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/usr/bin/env perl

BEGIN { require './t/inc/setup.pl' };

use strict;
use warnings;
use Scalar::Util qw/weaken/;

plan tests => 2;

SKIP: {
  my $button = Gtk3::Button->new_with_label ('Label');
  weaken $button;
  is ($button, undef);
}

SKIP: {
  skip 'Window ref counting test', 1; # FIXME?
  my $window = Gtk3::Window->new ('toplevel');
  weaken $window;
  is ($window, undef);
}