#!/usr/bin/perl

use warnings;
use strict;

use Test::More;

like(qx(lsb_release -si), qr/^SteamRT$/i);
is(qx(lsb_release -sd), "Steam Runtime 4\n");
is(qx(lsb_release -sr), "4\n");
is(qx(lsb_release -sc), "steamrt4\n");
is(qx(dpkg-vendor --is steamrt || echo \$?), '');
is(qx(dpkg-vendor --is SteamRT || echo \$?), '');
is(qx(dpkg-vendor --is debian || echo \$?), "1\n");
is(qx(dpkg-vendor --derives-from debian || echo \$?), '');
is(qx(dpkg-vendor --derives-from ubuntu || echo \$?), "1\n");

done_testing;
