1*11be35a1SLionel Sambuc /* $NetBSD: t_dlerror-false.c,v 1.1 2010/12/14 05:57:32 skrll Exp $ */
2*11be35a1SLionel Sambuc
3*11be35a1SLionel Sambuc /*
4*11be35a1SLionel Sambuc * Copyright (c) 2009 The NetBSD Foundation, Inc.
5*11be35a1SLionel Sambuc * All rights reserved.
6*11be35a1SLionel Sambuc *
7*11be35a1SLionel Sambuc * Redistribution and use in source and binary forms, with or without
8*11be35a1SLionel Sambuc * modification, are permitted provided that the following conditions
9*11be35a1SLionel Sambuc * are met:
10*11be35a1SLionel Sambuc * 1. Redistributions of source code must retain the above copyright
11*11be35a1SLionel Sambuc * notice, this list of conditions and the following disclaimer.
12*11be35a1SLionel Sambuc * 2. Redistributions in binary form must reproduce the above copyright
13*11be35a1SLionel Sambuc * notice, this list of conditions and the following disclaimer in the
14*11be35a1SLionel Sambuc * documentation and/or other materials provided with the distribution.
15*11be35a1SLionel Sambuc *
16*11be35a1SLionel Sambuc * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND
17*11be35a1SLionel Sambuc * CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
18*11be35a1SLionel Sambuc * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
19*11be35a1SLionel Sambuc * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20*11be35a1SLionel Sambuc * IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS BE LIABLE FOR ANY
21*11be35a1SLionel Sambuc * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22*11be35a1SLionel Sambuc * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
23*11be35a1SLionel Sambuc * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
24*11be35a1SLionel Sambuc * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
25*11be35a1SLionel Sambuc * IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
26*11be35a1SLionel Sambuc * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
27*11be35a1SLionel Sambuc * IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28*11be35a1SLionel Sambuc */
29*11be35a1SLionel Sambuc
30*11be35a1SLionel Sambuc #include <sys/types.h>
31*11be35a1SLionel Sambuc
32*11be35a1SLionel Sambuc #include <atf-c.h>
33*11be35a1SLionel Sambuc #include <dlfcn.h>
34*11be35a1SLionel Sambuc #include <link_elf.h>
35*11be35a1SLionel Sambuc
36*11be35a1SLionel Sambuc #include "../../h_macros.h"
37*11be35a1SLionel Sambuc
38*11be35a1SLionel Sambuc ATF_TC(rtld_dlerror_false);
ATF_TC_HEAD(rtld_dlerror_false,tc)39*11be35a1SLionel Sambuc ATF_TC_HEAD(rtld_dlerror_false, tc)
40*11be35a1SLionel Sambuc {
41*11be35a1SLionel Sambuc atf_tc_set_md_var(tc, "descr",
42*11be35a1SLionel Sambuc "error set by dlopen persists past a successful dlopen call");
43*11be35a1SLionel Sambuc }
44*11be35a1SLionel Sambuc
ATF_TC_BODY(rtld_dlerror_false,tc)45*11be35a1SLionel Sambuc ATF_TC_BODY(rtld_dlerror_false, tc)
46*11be35a1SLionel Sambuc {
47*11be35a1SLionel Sambuc void *handle, *sym;
48*11be35a1SLionel Sambuc char *error;
49*11be35a1SLionel Sambuc
50*11be35a1SLionel Sambuc /*
51*11be35a1SLionel Sambuc *
52*11be35a1SLionel Sambuc * Test for dlerror() being set by a successful library open.
53*11be35a1SLionel Sambuc * Requires that the rpath be set to something that does not
54*11be35a1SLionel Sambuc * include libm.so.
55*11be35a1SLionel Sambuc */
56*11be35a1SLionel Sambuc
57*11be35a1SLionel Sambuc handle = dlopen("libm.so", RTLD_LAZY);
58*11be35a1SLionel Sambuc error = dlerror();
59*11be35a1SLionel Sambuc ATF_CHECK(error == NULL);
60*11be35a1SLionel Sambuc ATF_CHECK(handle != NULL);
61*11be35a1SLionel Sambuc
62*11be35a1SLionel Sambuc sym = dlsym(handle, "sin");
63*11be35a1SLionel Sambuc error = dlerror();
64*11be35a1SLionel Sambuc ATF_CHECK(sym != NULL);
65*11be35a1SLionel Sambuc ATF_CHECK(error == NULL);
66*11be35a1SLionel Sambuc
67*11be35a1SLionel Sambuc dlclose(handle);
68*11be35a1SLionel Sambuc error = dlerror();
69*11be35a1SLionel Sambuc
70*11be35a1SLionel Sambuc ATF_CHECK(error == NULL);
71*11be35a1SLionel Sambuc
72*11be35a1SLionel Sambuc }
73*11be35a1SLionel Sambuc
ATF_TP_ADD_TCS(tp)74*11be35a1SLionel Sambuc ATF_TP_ADD_TCS(tp)
75*11be35a1SLionel Sambuc {
76*11be35a1SLionel Sambuc ATF_TP_ADD_TC(tp, rtld_dlerror_false);
77*11be35a1SLionel Sambuc
78*11be35a1SLionel Sambuc return atf_no_error();
79*11be35a1SLionel Sambuc }
80