1#!perl -wT
2use strict;
3use Test::More;
4
5plan tests => 1;
6
7# ----------
8# CPAN-RT#21516: closelog() wasn't correctly calling closelog_xs() when
9# using the native mechanism.
10#
11use Sys::Syslog;
12openlog("sys-syslog-test", 'pid,ndelay', 'user');
13closelog();
14is( $@, '', "was closelog_xs() correctly called?" );
15