(glrefmain.out): Test is not expected to fail anymore.
[kopensolaris-gnu/glibc.git] / dlfcn / glrefmain.c
1 /* Test for dependency tracking  added by relocations.
2    Copyright (C) 2000 Free Software Foundation, Inc.
3    This file is part of the GNU C Library.
4
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Library General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    License, or (at your option) any later version.
9
10    The GNU C Library is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Library General Public License for more details.
14
15    You should have received a copy of the GNU Library General Public
16    License along with the GNU C Library; see the file COPYING.LIB.  If not,
17    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18    Boston, MA 02111-1307, USA.  */
19
20 #include <dlfcn.h>
21 #include <error.h>
22 #include <errno.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25
26
27 static void *
28 load (const char *name)
29 {
30   void *d = dlopen (name, RTLD_LAZY | RTLD_GLOBAL);
31   if (d == NULL)
32     error (EXIT_FAILURE, errno, "cannot load `%s'", name);
33   return d;
34 }
35
36
37 #define TEST_FUNCTION do_test ()
38 int
39 do_test (void)
40 {
41   void *d1;
42   void *d2;
43   int (*f) (void);
44
45   d1 = load ("glreflib1.so");
46   d2 = load ("glreflib2.so");
47
48   f = dlsym (d2, "ref2");
49   if (f == NULL)
50     error (EXIT_FAILURE, errno, "cannot get pointer to `%s'", "ref2");
51
52   if (f () != 42)
53     error (EXIT_FAILURE, 0, "wrong result from `%s'", "ref2");
54
55   puts ("Correct result in first call");
56   fflush (stdout);
57
58   /* Now unload the first file.  */
59   dlclose (d1);
60
61   puts ("About to call the second time");
62   fflush (stdout);
63
64   /* Try calling the function again.  */
65   if (f () != 42)
66     error (EXIT_FAILURE, 0, "wrong result from `%s' (second call)", "ref2");
67
68   puts ("Second call succeeded!");
69   fflush (stdout);
70
71   dlclose (d2);
72
73   return 0;
74 }
75
76 #include "../test-skeleton.c"