Google Git
Sign in
kernel / pub / scm / linux / kernel / git / jlayton / xfstests-dev / refs/heads/unlink-ctime / . / src / locktest.c
blob: 0e7c3008d1d03e2e4a2031a92f25cd59709505d5 [file] [log] [blame]
// SPDX-License-Identifier: GPL-2.0
/*
* Copyright (c) 2000-2003 Silicon Graphics, Inc.
* Copyright (c) 2019 Intel Corp.
* All Rights Reserved.
*/
/*
* Synchronized byte range lock and lease exerciser
*/
#include <stdio.h>
#include <stdlib.h>
#include <malloc.h>
#include <fcntl.h>
#include <errno.h>
#include <string.h>
#include <sys/stat.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netinet/tcp.h>
#include <unistd.h>
#include <sys/types.h>
#include <netdb.h>
#include <endian.h>
#include <byteswap.h>
#include <errno.h>
#include <string.h>
#include <signal.h>
#define HEX_2_ASC(x) ((x) > 9) ? (x)-10+'a' : (x)+'0'
#define FILE_SIZE 1024
#define PLATFORM_INIT() /*no-op*/
#define PLATFORM_CLEANUP() /*no-op*/
#define LL "ll"
extern int h_errno;
#define inet_aton(STRING, INADDRP) \
(((INADDRP)->s_addr = inet_addr(STRING)) == -1 ? 0 : 1)
/* this assumes 32 bit pointers */
#define PTR_TO_U64(P) ((unsigned __int64)(unsigned int)(P))
#define U64_TO_PTR(T,U) ((T)(void *)(unsigned int)(U))
#if __BYTE_ORDER == __LITTLE_ENDIAN
#define bswap_uint16(x) (uint16_t)bswap_16(x)
#define bswap_uint32(x) (uint32_t)bswap_32(x)
#define bswap_uint64(x) (uint64_t)bswap_64(x)
#else
#define bswap_uint16(x) x
#define bswap_uint32(x) x
#define bswap_uint64(x) x
#endif
#define SOCKET int
#define SOCKET_READ read
#define SOCKET_WRITE write
#define SOCKET_CLOSE(S) (close(S))
#define INVALID_SOCKET -1
#define O_BINARY 0
#define HANDLE int
#define INVALID_HANDLE -1
#define SEEK(H, O) (lseek(H, O, SEEK_SET))
#define READ(H, B, L) (read(H, B, L))
#define WRITE(H, B, L) (write(H, B, L))
#define CLOSE(H) (close(H))
#define RAND() (rand())
#define SRAND(s) (srand(s))
#define MIN(A,B) (((A)<(B))?(A):(B))
#define MAX(A,B) (((A)>(B))?(A):(B))
#define ALLOC_ALIGNED(S) (memalign(65536, S))
#define FREE_ALIGNED(P) (free(P))
static char *prog;
static char *filename = 0;
static int debug = 0;
static int server = 1;
static int port = 0;
static int testnumber = -1;
static int saved_errno = 0;
static int got_sigio = 0;
static SOCKET s_fd = -1; /* listen socket */
static SOCKET c_fd = -1; /* IPC socket */
static HANDLE f_fd = INVALID_HANDLE; /* shared file */
#define CMD_WRLOCK 0
#define CMD_RDLOCK 1
#define CMD_UNLOCK 2
#define CMD_CLOSE 3
#define CMD_OPEN 4
#define CMD_WRTEST 5
#define CMD_RDTEST 6
#define CMD_SETLEASE 7
#define CMD_GETLEASE 8
#define CMD_SIGIO 9
#define CMD_WAIT_SIGIO 10
#define CMD_TRUNCATE 11
#define PASS 1
#define FAIL 0
#define SERVER 0
#define CLIENT 1
#define TEST_NUM 0
#define COMMAND 1
#define OFFSET 2
#define LENGTH 3
#define RESULT 4
#define WHO 5
#define FLAGS 2 /* index 2 is also used for do_open() flag, see below */
#define ARG FLAGS /* Arguments for Lease operations */
#define TIME FLAGS /* Time for waiting on sigio */
static char *get_cmd_str(int cmd)
{
switch (cmd) {
case CMD_WRLOCK: return "write lock"; break;
case CMD_RDLOCK: return "read lock"; break;
case CMD_UNLOCK: return "unlock"; break;
case CMD_CLOSE: return "close"; break;
case CMD_OPEN: return "open"; break;
case CMD_WRTEST: return "Wait for SIGIO"; break;
case CMD_RDTEST: return "Truncate"; break;
case CMD_SETLEASE: return "Set Lease"; break;
case CMD_GETLEASE: return "Get Lease"; break;
case CMD_SIGIO: return "Setup SIGIO"; break;
case CMD_WAIT_SIGIO: return "Wait for SIGIO"; break;
case CMD_TRUNCATE: return "Truncate"; break;
}
return "unknown";
}
/*
* flags for Mac OS X do_open()
* O_RDONLY 0x0000
* O_WRONLY 0x0001
* O_RDWR 0x0002
* O_NONBLOCK 0x0004
* O_APPEND 0x0008
* O_SHLOCK 0x0010
* O_EXLOCK 0x0020
* O_ASYNC 0x0040
* O_FSYNC 0x0080
* O_NOFOLLOW 0x0100
* O_CREAT 0x0200
* O_TRUNC 0x0400
* O_EXCL 0x0800
*/
/*
* When adding tests be sure to add to both the descriptions AND tests array.
* Also, be sure to undo whatever is set for each test (eg unlock any locks)
* There is no need to have a matching client command for each server command
* (or vice versa)
*/
char *lock_descriptions[] = {
/* 1 */"Add a lock to an empty lock list",
/* 2 */"Add a lock to the start and end of a list - no overlaps",
/* 3 */"Add a lock to the middle of a list - no overlap",
/* 4 */"Add different lock types to middle of the list - overlap exact match",
/* 5 */"Add new lock which completely overlaps any old lock in the list",
/* 6 */"Add new lock which itself is completely overlaped by any old lock in the list",
/* 7 */"Add new lock which starts before any old lock in the list",
/* 8 */"Add new lock which starts in the middle of any old lock in the list and ends after",
/* 9 */"Add different new lock types which completely overlaps any old lock in the list",
/* 10 */"Add different new locks which are completely overlaped by an old lock in the list",
/* 11 */"Add different new lock types which start before the old lock in the list",
/* 12 */"Add different new lock types which start in the middle of an old lock in the list and end after",
/* 13 */"Add new lock, differing types and processes, to middle of the list - exact overlap match",
/* 14 */"Add new lock, differing types and processes, which completely overlap any of the locks in the list",
/* 15 */"Add new lock, differing types and processes, which are completely overlaped by locks in the list",
/* 16 */"Add new lock, differing types and processes, which start before a lock in the list",
/* 17 */"Add new lock, differing types and processes, which starts in the middle of a lock, and ends after",
/* 18 */"Acquire write locks with overlapping ranges",
/* 19 */"Acquire write locks with non-overlapping ranges extending beyond EOF",
/* 20 */"Acquire write locks with overlapping ranges extending beyond EOF",
/* 21 */"Acquire write locks on whole files",
/* 22 */"Acquire write lock on whole file and range write lock",
/* 23 */"Acquire read locks with non-overlapping ranges",
/* 24 */"Acquire read locks with overlapping ranges",
/* 25 */"Acquire read and write locks with no overlapping ranges",
/* 26 */"Acquire read and write locks with overlapping ranges",
/* 27 */"Acquire whole file write lock and then close without unlocking (and attempt a lock)",
/* 28 */"Acquire two read locks, close and reopen the file, and test if the inital lock is still there",
/* 29 */"Verify that F_GETLK for F_WRLCK doesn't require that file be opened for write",
#if defined(macosx)
/* 30 */"Close the opened file and open the file with SHLOCK, other client will try to open with SHLOCK too",
/* 31 */"Close the opened file and open the file with SHLOCK, other client will try to open with EXLOCK",
/* 32 */"Close the opened file and open the file with EXLOCK, other client will try to open with EXLOCK too"
#endif
};
static int64_t lock_tests[][6] =
/* test # Action [offset|flags] length expected server/client */
{
/* Various simple tests exercising the list */
/* SECTION 1: WRITE and CMD_UNLOCK with the same process (SERVER) */
/* Add a lock to an empty list */
{1, CMD_WRLOCK, 1, 10, PASS, SERVER },
{1, CMD_UNLOCK, 1, 10, PASS, SERVER },
/* Add a lock to the start and end of a list - 1, 13 - no overlap */
{2, CMD_WRLOCK, 10, 10, PASS, SERVER },
{2, CMD_WRLOCK, 30, 10, PASS, SERVER },
{2, CMD_WRLOCK, 50, 10, PASS, SERVER },
{2, CMD_WRLOCK, 1, 5, PASS, SERVER },
{2, CMD_WRLOCK, 70, 5, PASS, SERVER },
{2, CMD_UNLOCK, 10, 10, PASS, SERVER },
{2, CMD_UNLOCK, 30, 10, PASS, SERVER },
{2, CMD_UNLOCK, 50, 10, PASS, SERVER },
{2, CMD_UNLOCK, 1, 5, PASS, SERVER },
{2, CMD_UNLOCK, 70, 5, PASS, SERVER },
/* Add a lock to the middle of a list - no overlap */
{3, CMD_WRLOCK, 10, 10, PASS, SERVER },
{3, CMD_WRLOCK, 30, 10, PASS, SERVER },
{3, CMD_WRLOCK, 50, 10, PASS, SERVER },
{3, CMD_WRLOCK, 42, 5, PASS, SERVER },
{3, CMD_UNLOCK, 10, 10, PASS, SERVER },
{3, CMD_UNLOCK, 30, 10, PASS, SERVER },
{3, CMD_UNLOCK, 50, 10, PASS, SERVER },
{3, CMD_UNLOCK, 42, 5, PASS, SERVER },
/* Add different lock types to middle of the list - overlap exact match - 3 */
{4, CMD_WRLOCK, 10, 10, PASS, SERVER },
{4, CMD_WRLOCK, 30, 10, PASS, SERVER },
{4, CMD_WRLOCK, 50, 10, PASS, SERVER },
/* Exact match - same lock type */
{4, CMD_WRLOCK, 30, 10, PASS, SERVER },
/* Exact match - different lock type */
{4, CMD_RDLOCK, 30, 10, PASS, SERVER },
/* Exact match - unlock */
{4, CMD_UNLOCK, 30, 10, PASS, SERVER },
/* New lock - as above, inserting in the list again */
{4, CMD_WRLOCK, 30, 10, PASS, SERVER },
{4, CMD_UNLOCK, 10, 10, PASS, SERVER },
{4, CMD_UNLOCK, 30, 10, PASS, SERVER },
{4, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* Add new lock which completely overlaps any old lock in the list - 4,5,6 */
{5, CMD_WRLOCK, 10, 10, PASS, SERVER },
{5, CMD_WRLOCK, 30, 10, PASS, SERVER },
{5, CMD_WRLOCK, 50, 10, PASS, SERVER },
/* The start is the same, end overlaps */
{5, CMD_WRLOCK, 30, 15, PASS, SERVER },
/* The start is before, end is the same */
{5, CMD_WRLOCK, 25, 20, PASS, SERVER },
/* Both start and end overlap */
{5, CMD_WRLOCK, 22, 26, PASS, SERVER },
{5, CMD_UNLOCK, 10, 10, PASS, SERVER },
{5, CMD_UNLOCK, 22, 26, PASS, SERVER },
{5, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* Add new lock which itself is completely overlaped by any old lock in the list - 7,8,10 */
{6, CMD_WRLOCK, 10, 10, PASS, SERVER },
{6, CMD_WRLOCK, 30, 10, PASS, SERVER },
{6, CMD_WRLOCK, 50, 10, PASS, SERVER },
/* The start is the same, end is in the middle of old lock - NOP */
{6, CMD_WRLOCK, 30, 5, PASS, SERVER },
/* The start and end are in the middle of old lock - NOP */
{6, CMD_WRLOCK, 32, 6, PASS, SERVER },
/* Start in the middle and end is the same - NOP */
{6, CMD_WRLOCK, 32, 8, PASS, SERVER },
{6, CMD_UNLOCK, 10, 10, PASS, SERVER },
{6, CMD_UNLOCK, 30, 10, PASS, SERVER },
{6, CMD_UNLOCK, 32, 8, PASS, SERVER },
{6, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* Add new lock which starts before any old lock in the list - 2,9 */
{7, CMD_WRLOCK, 10, 10, PASS, SERVER },
{7, CMD_WRLOCK, 30, 10, PASS, SERVER },
{7, CMD_WRLOCK, 50, 10, PASS, SERVER },
/* Here is the new lock */
{7, CMD_WRLOCK, 27, 10, PASS, SERVER },
/* Go again with the end of the new lock matching the start of old lock */
{7, CMD_WRLOCK, 25, 2, PASS, SERVER },
{7, CMD_UNLOCK, 10, 10, PASS, SERVER },
{7, CMD_UNLOCK, 25, 15, PASS, SERVER },
{7, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* Add new lock which starts in the middle of any old lock in the list and ends after - 11,12 */
{8, CMD_WRLOCK, 10, 10, PASS, SERVER },
{8, CMD_WRLOCK, 30, 10, PASS, SERVER },
{8, CMD_WRLOCK, 50, 10, PASS, SERVER },
/* Here is the new lock */
{8, CMD_WRLOCK, 35, 10, PASS, SERVER },
/* Go again with the end of the new lock matching the start of old lock */
{8, CMD_WRLOCK, 45, 2, PASS, SERVER },
{8, CMD_UNLOCK, 10, 10, PASS, SERVER },
{8, CMD_UNLOCK, 30, 17, PASS, SERVER },
{8, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* SECTION 2: Overlapping READ and WRITE and CMD_UNLOCK with the same process (SERVER) */
/* Add different new lock types which completely overlaps any old lock in the list - 4,5,6 */
{9, CMD_WRLOCK, 10, 10, PASS, SERVER },
{9, CMD_WRLOCK, 30, 10, PASS, SERVER },
{9, CMD_WRLOCK, 50, 10, PASS, SERVER },
/* The start is the same, end overlaps */
{9, CMD_RDLOCK, 30, 15, PASS, SERVER },
/* The start is before, end is the same */
{9, CMD_WRLOCK, 25, 20, PASS, SERVER },
/* Both start and end overlap */
{9, CMD_RDLOCK, 22, 26, PASS, SERVER },
{9, CMD_UNLOCK, 10, 10, PASS, SERVER },
{9, CMD_UNLOCK, 22, 26, PASS, SERVER },
{9, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* Add different new locks which are completely overlaped by an old lock in the list - 7,8,10 */
{10, CMD_WRLOCK, 10, 10, PASS, SERVER },
{10, CMD_WRLOCK, 30, 10, PASS, SERVER },
{10, CMD_WRLOCK, 50, 10, PASS, SERVER },
/* The start is the same, end is in the middle of old lock */
{10, CMD_RDLOCK, 30, 5, PASS, SERVER },
/* The start and end are in the middle of a lock */
{10, CMD_WRLOCK, 32, 2, PASS, SERVER },
/* Start in the middle and end is the same */
{10, CMD_RDLOCK, 36, 5, PASS, SERVER },
{10, CMD_UNLOCK, 10, 10, PASS, SERVER },
{10, CMD_UNLOCK, 30, 11, PASS, SERVER },
{10, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* Add different new lock types which start before the old lock in the list - 2,9 */
{11, CMD_WRLOCK, 10, 10, PASS, SERVER },
{11, CMD_WRLOCK, 30, 10, PASS, SERVER },
{11, CMD_WRLOCK, 50, 10, PASS, SERVER },
/* Here is the new lock */
{11, CMD_RDLOCK, 27, 10, PASS, SERVER },
/* Go again with the end of the new lock matching the start of lock */
{11, CMD_WRLOCK, 25, 3, PASS, SERVER },
{11, CMD_UNLOCK, 10, 10, PASS, SERVER },
{11, CMD_UNLOCK, 25, 15, PASS, SERVER },
{11, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* Add different new lock types which start in the middle of an old lock in the list and end after - 11,12 */
{12, CMD_WRLOCK, 10, 10, PASS, SERVER },
{12, CMD_WRLOCK, 30, 10, PASS, SERVER },
{12, CMD_WRLOCK, 50, 10, PASS, SERVER },
/* Here is the new lock */
{12, CMD_RDLOCK, 35, 10, PASS, SERVER },
/* Go again with the end of the new lock matching the start of old lock */
{12, CMD_WRLOCK, 44, 3, PASS, SERVER },
{12, CMD_UNLOCK, 10, 10, PASS, SERVER },
{12, CMD_UNLOCK, 30, 18, PASS, SERVER },
{12, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* SECTION 3: Overlapping READ and WRITE and CMD_UNLOCK with the different processes (CLIENT/SERVER) */
/* Add new lock, differing types and processes, to middle of the list - exact overlap match - 3 */
{13, CMD_WRLOCK, 10, 10, PASS, SERVER },
{13, CMD_WRLOCK, 30, 10, PASS, SERVER },
{13, CMD_RDLOCK, 50, 10, PASS, SERVER },
/* Same lock type, different process */
{13, CMD_WRLOCK, 30, 10, FAIL, CLIENT },
{13, CMD_RDLOCK, 50, 10, PASS, CLIENT },
/* Exact match - different lock type, different process */
{13, CMD_RDLOCK, 30, 10, FAIL, CLIENT },
/* Exact match - unlock */
{13, CMD_UNLOCK, 30, 10, PASS, CLIENT },
/* New lock - as above, inserting in the list again */
{13, CMD_UNLOCK, 30, 10, PASS, SERVER },
/* Exact match - same lock type, different process */
{13, CMD_WRLOCK, 30, 10, PASS, CLIENT },
{13, CMD_UNLOCK, 10, 10, PASS, SERVER },
{13, CMD_UNLOCK, 30, 10, PASS, CLIENT },
{13, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* Add new lock, differing types and processes, which completely overlap any of the locks in the list - 4,5,6 */
{14, CMD_WRLOCK, 10, 10, PASS, SERVER },
{14, CMD_WRLOCK, 30, 10, PASS, SERVER },
{14, CMD_RDLOCK, 50, 10, PASS, SERVER },
/* The start is the same, end overlaps */
{14, CMD_RDLOCK, 30, 15, FAIL, CLIENT },
{14, CMD_WRLOCK, 30, 15, FAIL, CLIENT },
/* The start is before, end is the same */
{14, CMD_RDLOCK, 25, 20, FAIL, CLIENT },
{14, CMD_WRLOCK, 25, 20, FAIL, CLIENT },
/* Both start and end overlap */
{14, CMD_RDLOCK, 22, 26, FAIL, CLIENT },
{14, CMD_WRLOCK, 22, 26, FAIL, CLIENT },
/* The start is the same, end overlaps */
{14, CMD_RDLOCK, 50, 15, PASS, CLIENT },
{14, CMD_WRLOCK, 50, 17, FAIL, CLIENT },
/* The start is before, end is the same */
{14, CMD_RDLOCK, 45, 20, PASS, CLIENT },
{14, CMD_WRLOCK, 43, 22, FAIL, CLIENT },
/* Both start and end overlap */
{14, CMD_RDLOCK, 42, 26, PASS, CLIENT },
{14, CMD_WRLOCK, 41, 28, FAIL, CLIENT },
{14, CMD_UNLOCK, 10, 10, PASS, SERVER },
{14, CMD_UNLOCK, 22, 26, PASS, SERVER },
{14, CMD_UNLOCK, 42, 26, PASS, CLIENT },
/* Add new lock, differing types and processes, which are completely overlaped by an old lock in the list - 7,8,10 */
{15, CMD_WRLOCK, 10, 10, PASS, SERVER },
{15, CMD_RDLOCK, 30, 10, PASS, SERVER },
{15, CMD_WRLOCK, 50, 10, PASS, SERVER },
/* The start is the same, end is in the middle of old lock */
{15, CMD_RDLOCK, 50, 5, FAIL, CLIENT },
{15, CMD_WRLOCK, 50, 5, FAIL, CLIENT },
/* The start and end are in the middle of old lock */
{15, CMD_RDLOCK, 52, 6, FAIL, CLIENT },
{15, CMD_WRLOCK, 52, 6, FAIL, CLIENT },
/* Start in the middle and end is the same */
{15, CMD_RDLOCK, 52, 8, FAIL, CLIENT },
{15, CMD_WRLOCK, 52, 8, FAIL, CLIENT },
/* The start is the same, end is in the middle of old lock */
{15, CMD_RDLOCK, 30, 5, PASS, CLIENT },
{15, CMD_WRLOCK, 30, 5, FAIL, CLIENT },
/* The start and end are in the middle of old lock */
{15, CMD_RDLOCK, 32, 6, PASS, CLIENT },
{15, CMD_WRLOCK, 32, 6, FAIL, CLIENT },
/* Start in the middle and end is the same */
{15, CMD_RDLOCK, 32, 8, PASS, CLIENT },
{15, CMD_WRLOCK, 32, 8, FAIL, CLIENT },
{15, CMD_UNLOCK, 10, 10, PASS, SERVER },
{15, CMD_UNLOCK, 30, 10, PASS, SERVER },
{15, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* Add new lock, differing types and processes, which start before a lock in the list - 2,9 */
{16, CMD_RDLOCK, 10, 10, PASS, SERVER },
{16, CMD_WRLOCK, 50, 10, PASS, SERVER },
/* Start is before, end is the start of the old lock in list */
{16, CMD_RDLOCK, 5, 6, PASS, CLIENT },
{16, CMD_WRLOCK, 5, 6, FAIL, CLIENT },
/* Start is before, end is in the middle of the old lock */
{16, CMD_RDLOCK, 5, 10, PASS, CLIENT },
{16, CMD_WRLOCK, 5, 10, FAIL, CLIENT },
/* Start is before, end is the start of the old lock in list */
{16, CMD_RDLOCK, 45, 6, FAIL, CLIENT },
{16, CMD_WRLOCK, 45, 6, FAIL, CLIENT },
/* Start is before, end is in the middle of the old lock */
{16, CMD_RDLOCK, 45, 10, FAIL, CLIENT },
{16, CMD_WRLOCK, 45, 10, FAIL, CLIENT },
{16, CMD_UNLOCK, 5, 15, PASS, CLIENT },
{16, CMD_UNLOCK, 30, 10, PASS, SERVER },
{16, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* Add new lock, differing types and processes, which starts in the middle of a lock, and ends after - 11,12 */
{17, CMD_WRLOCK, 10, 10, PASS, SERVER },
{17, CMD_RDLOCK, 30, 10, PASS, SERVER },
{17, CMD_WRLOCK, 50, 10, PASS, SERVER },
/* Start in the middle, end after lock in list */
{17, CMD_WRLOCK, 35, 10, FAIL, CLIENT },
/* Start matches end of lock in list */
{17, CMD_RDLOCK, 35, 10, PASS, CLIENT },
{17, CMD_RDLOCK, 44, 2, PASS, CLIENT },
/* Start in the middle, end after lock in list */
{17, CMD_RDLOCK, 55, 10, FAIL, CLIENT },
{17, CMD_WRLOCK, 55, 10, FAIL, CLIENT },
/* Start matches end of lock in list */
{17, CMD_RDLOCK, 59, 5, FAIL, CLIENT },
{17, CMD_WRLOCK, 59, 5, FAIL, CLIENT },
{17, CMD_UNLOCK, 10, 10, PASS, SERVER },
{17, CMD_UNLOCK, 30, 16, PASS, CLIENT },
{17, CMD_UNLOCK, 50, 10, PASS, SERVER },
/* SECTION 4: overlapping and EOF tests */
/* Acquire overlapping ranges */
{18, CMD_WRLOCK, 11, 7, PASS, SERVER },
{18, CMD_WRLOCK, 13, 8, FAIL, CLIENT },
{18, CMD_UNLOCK, 11, 7, PASS, SERVER },
/* Acquire different ranges beyond EOF */
{19, CMD_WRLOCK, 10, FILE_SIZE, PASS, SERVER },
{19, CMD_WRLOCK, FILE_SIZE + 10, 10, PASS, CLIENT },
{19, CMD_UNLOCK, 10, FILE_SIZE, PASS, SERVER },
{19, CMD_UNLOCK, FILE_SIZE + 10, 10, PASS, CLIENT },
/* Acquire same range beyong EOF */
{20, CMD_WRLOCK, 10, FILE_SIZE, PASS, SERVER, },
{20, CMD_WRLOCK, 10, FILE_SIZE, FAIL, CLIENT, },
{20, CMD_UNLOCK, 10, FILE_SIZE, PASS, SERVER, },
/* Acquire whole file lock */
{21, CMD_WRLOCK, 0, 0, PASS, SERVER, },
{21, CMD_WRLOCK, 0, 0, FAIL, CLIENT, },
{21, CMD_UNLOCK, 0, 0, PASS, SERVER, },
/* Acquire whole file lock, then range */
{22, CMD_WRLOCK, 0, 0, PASS, SERVER, },
{22, CMD_WRLOCK, 1, 5, FAIL, CLIENT, },
{22, CMD_UNLOCK, 0, 0, PASS, SERVER, },
/* Acquire non-overlapping read locks */
{23, CMD_RDLOCK, 1, 5, PASS, SERVER, },
{23, CMD_RDLOCK, 7, 6, PASS, CLIENT, },
{23, CMD_UNLOCK, 1, 5, PASS, SERVER, },
{23, CMD_UNLOCK, 7, 6, PASS, CLIENT, },
/* Acquire overlapping read locks */
{24, CMD_RDLOCK, 1, 5, PASS, SERVER, },
{24, CMD_RDLOCK, 2, 6, PASS, CLIENT, },
{24, CMD_UNLOCK, 1, 5, PASS, SERVER, },
{24, CMD_UNLOCK, 1, 7, PASS, CLIENT, },
/* Acquire non-overlapping read and write locks */
{25, CMD_RDLOCK, 1, 5, PASS, SERVER, },
{25, CMD_WRLOCK, 7, 6, PASS, CLIENT, },
{25, CMD_UNLOCK, 1, 5, PASS, SERVER, },
{25, CMD_UNLOCK, 7, 6, PASS, CLIENT, },
/* Acquire overlapping read and write locks */
{26, CMD_RDLOCK, 1, 5, PASS, SERVER, },
{26, CMD_WRLOCK, 2, 6, FAIL, CLIENT, },
{26, CMD_UNLOCK, 1, 5, PASS, SERVER, },
/* Acquire whole file lock, then close (without unlocking) */
{27, CMD_WRLOCK, 0, 0, PASS, SERVER, },
{27, CMD_WRLOCK, 1, 5, FAIL, CLIENT, },
{27, CMD_CLOSE,0, 0, PASS, SERVER, },
{27, CMD_WRLOCK, 1, 5, PASS, CLIENT, },
{27, CMD_OPEN, O_RDWR, 0, PASS, SERVER, },
{27, CMD_UNLOCK, 1, 5, PASS, CLIENT, },
/* Acquire two read locks, close one file and then reopen to check that first lock still exists */
{28, CMD_RDLOCK, 1, 5, PASS, SERVER, },
{28, CMD_RDLOCK, 1, 5, PASS, CLIENT, },
{28, CMD_CLOSE,0, 0, PASS, SERVER, },
{28, CMD_OPEN, O_RDWR, 0, PASS, SERVER, },
{28, CMD_WRLOCK, 0, 0, FAIL, SERVER, },
{28, CMD_UNLOCK, 1, 5, PASS, SERVER, },
/* Verify that F_GETLK for F_WRLCK doesn't require that file be opened for write */
{29, CMD_CLOSE, 0, 0, PASS, SERVER, },
{29, CMD_OPEN, O_RDONLY, 0, PASS, SERVER, },
{29, CMD_WRTEST, 0, 0, PASS, SERVER, },
{29, CMD_CLOSE,0, 0, PASS, SERVER, },
{29, CMD_OPEN, O_RDWR, 0, PASS, SERVER, },
#ifdef macosx
/* Close the opened file and open the file with SHLOCK, other client will try to open with SHLOCK too */
{30, CMD_CLOSE,0, 0, PASS, SERVER, },
{30, CMD_OPEN, O_RDWR|O_SHLOCK|O_NONBLOCK, 0, PASS, SERVER, },
{30, CMD_CLOSE,0, 0, PASS, CLIENT, },
{30, CMD_OPEN, O_RDWR|O_SHLOCK|O_NONBLOCK, 0, PASS, CLIENT, },
/* Close the opened file and open the file with SHLOCK, other client will try to open with EXLOCK */
{31, CMD_CLOSE,0, 0, PASS, SERVER, },
{31, CMD_CLOSE,0, 0, PASS, CLIENT, },
{31, CMD_OPEN, O_RDWR|O_SHLOCK|O_NONBLOCK, 0, PASS, SERVER, },
{31, CMD_OPEN, O_RDWR|O_EXLOCK|O_NONBLOCK, 0, FAIL, CLIENT, },
/* Close the opened file and open the file with EXLOCK, other client will try to open with EXLOCK too */
{32, CMD_CLOSE,0, 0, PASS, SERVER, },
{32, CMD_CLOSE,0, 0, FAIL, CLIENT, },
{32, CMD_OPEN, O_RDWR|O_EXLOCK|O_NONBLOCK, 0, PASS, SERVER, },
{32, CMD_OPEN, O_RDWR|O_EXLOCK|O_NONBLOCK, 0, FAIL, CLIENT, },
{32, CMD_CLOSE,0, 0, PASS, SERVER, },
{32, CMD_CLOSE,0, 0, FAIL, CLIENT, },
{32, CMD_OPEN, O_RDWR, 0, PASS, SERVER, },
{32, CMD_OPEN, O_RDWR, 0, PASS, CLIENT, },
#endif /* macosx */
/* indicate end of array */
{0,0,0,0,0,SERVER},
{0,0,0,0,0,CLIENT}
};
char *lease_descriptions[] = {
/* 1 */"Take Read Lease",
/* 2 */"Take Write Lease",
/* 3 */"Fail Write Lease if file is open somewhere else",
/* 4 */"Fail Read Lease if opened with write permissions",
/* 5 */"Read lease gets SIGIO on write open",
/* 6 */"Write lease gets SIGIO on read open",
/* 7 */"Read lease does _not_ get SIGIO on read open",
/* 8 */"Read lease gets SIGIO on write open",
/* 9 */"Write lease gets SIGIO on truncate",
/* 10 */"Read lease gets SIGIO on truncate",
};
static int64_t lease_tests[][6] =
/* test # Action [offset|flags|arg] length expected server/client */
/* [sigio_wait_time] */
{
/* Various tests to exercise leases */
/* SECTION 1: Simple verification of being able to take leases */
/* Take Read Lease */
{1, CMD_CLOSE, 0, 0, PASS, CLIENT },
{1, CMD_OPEN, O_RDONLY, 0, PASS, CLIENT },
{1, CMD_CLOSE, 0, 0, PASS, SERVER },
{1, CMD_OPEN, O_RDONLY, 0, PASS, SERVER },
{1, CMD_SETLEASE, F_RDLCK, 0, PASS, SERVER },
{1, CMD_GETLEASE, F_RDLCK, 0, PASS, SERVER },
{1, CMD_SETLEASE, F_UNLCK, 0, PASS, SERVER },
{1, CMD_CLOSE, 0, 0, PASS, SERVER },
{1, CMD_CLOSE, 0, 0, PASS, CLIENT },
/* Take Write Lease */
{2, CMD_OPEN, O_RDWR, 0, PASS, SERVER },
{2, CMD_SETLEASE, F_WRLCK, 0, PASS, SERVER },
{2, CMD_GETLEASE, F_WRLCK, 0, PASS, SERVER },
{2, CMD_SETLEASE, F_UNLCK, 0, PASS, SERVER },
{2, CMD_CLOSE, 0, 0, PASS, SERVER },
/* Fail Write Lease with other users */
{3, CMD_OPEN, O_RDONLY, 0, PASS, CLIENT },
{3, CMD_OPEN, O_RDWR, 0, PASS, SERVER },
{3, CMD_SETLEASE, F_WRLCK, 0, FAIL, SERVER },
{3, CMD_GETLEASE, F_WRLCK, 0, FAIL, SERVER },
{3, CMD_CLOSE, 0, 0, PASS, SERVER },
{3, CMD_CLOSE, 0, 0, PASS, CLIENT },
/* Fail Read Lease if opened for write */
{4, CMD_OPEN, O_RDWR, 0, PASS, SERVER },
{4, CMD_SETLEASE, F_RDLCK, 0, FAIL, SERVER },
{4, CMD_GETLEASE, F_RDLCK, 0, FAIL, SERVER },
{4, CMD_CLOSE, 0, 0, PASS, SERVER },
/* SECTION 2: Proper SIGIO notifications */
/* Get SIGIO when read lease is broken by write */
{5, CMD_OPEN, O_RDONLY, 0, PASS, CLIENT },
{5, CMD_SETLEASE, F_RDLCK, 0, PASS, CLIENT },
{5, CMD_GETLEASE, F_RDLCK, 0, PASS, CLIENT },
{5, CMD_SIGIO, 0, 0, PASS, CLIENT },
{5, CMD_OPEN, O_RDWR, 0, PASS, SERVER },
{5, CMD_WAIT_SIGIO, 5, 0, PASS, CLIENT },
{5, CMD_CLOSE, 0, 0, PASS, SERVER },
{5, CMD_CLOSE, 0, 0, PASS, CLIENT },
/* Get SIGIO when write lease is broken by read */
{6, CMD_OPEN, O_RDWR, 0, PASS, CLIENT },
{6, CMD_SETLEASE, F_WRLCK, 0, PASS, CLIENT },
{6, CMD_GETLEASE, F_WRLCK, 0, PASS, CLIENT },
{6, CMD_SIGIO, 0, 0, PASS, CLIENT },
{6, CMD_OPEN, O_RDONLY, 0, PASS, SERVER },
{6, CMD_WAIT_SIGIO, 5, 0, PASS, CLIENT },
{6, CMD_CLOSE, 0, 0, PASS, SERVER },
{6, CMD_CLOSE, 0, 0, PASS, CLIENT },
/* Don't get SIGIO when read lease is taken by read */
{7, CMD_OPEN, O_RDONLY, 0, PASS, CLIENT },
{7, CMD_SETLEASE, F_RDLCK, 0, PASS, CLIENT },
{7, CMD_GETLEASE, F_RDLCK, 0, PASS, CLIENT },
{7, CMD_SIGIO, 0, 0, PASS, CLIENT },
{7, CMD_OPEN, O_RDONLY, 0, PASS, SERVER },
{7, CMD_WAIT_SIGIO, 5, 0, FAIL, CLIENT },
{7, CMD_CLOSE, 0, 0, PASS, SERVER },
{7, CMD_CLOSE, 0, 0, PASS, CLIENT },
/* Get SIGIO when Read lease is broken by Write */
{8, CMD_OPEN, O_RDONLY, 0, PASS, CLIENT },
{8, CMD_SETLEASE, F_RDLCK, 0, PASS, CLIENT },
{8, CMD_GETLEASE, F_RDLCK, 0, PASS, CLIENT },
{8, CMD_SIGIO, 0, 0, PASS, CLIENT },
{8, CMD_OPEN, O_RDWR, 0, PASS, SERVER },
{8, CMD_WAIT_SIGIO, 5, 0, PASS, CLIENT },
{8, CMD_CLOSE, 0, 0, PASS, SERVER },
{8, CMD_CLOSE, 0, 0, PASS, CLIENT },
/* Get SIGIO when Write lease is broken by Truncate */
{9, CMD_OPEN, O_RDWR, 0, PASS, CLIENT },
{9, CMD_SETLEASE, F_WRLCK, 0, PASS, CLIENT },
{9, CMD_GETLEASE, F_WRLCK, 0, PASS, CLIENT },
{9, CMD_SIGIO, 0, 0, PASS, CLIENT },
{9, CMD_TRUNCATE, FILE_SIZE/2, 0, PASS, CLIENT },
{9, CMD_WAIT_SIGIO, 5, 0, PASS, CLIENT },
{9, CMD_CLOSE, 0, 0, PASS, CLIENT },
/* Get SIGIO when Read lease is broken by Truncate */
{10, CMD_OPEN, O_RDONLY, 0, PASS, CLIENT },
{10, CMD_SETLEASE, F_RDLCK, 0, PASS, CLIENT },
{10, CMD_GETLEASE, F_RDLCK, 0, PASS, CLIENT },
{10, CMD_SIGIO, 0, 0, PASS, CLIENT },
{10, CMD_TRUNCATE, FILE_SIZE/2, 0, PASS, SERVER },
{10, CMD_WAIT_SIGIO, 5, 0, PASS, CLIENT },
{10, CMD_CLOSE, 0, 0, PASS, CLIENT },
/* indicate end of array */
{0,0,0,0,0,SERVER},
{0,0,0,0,0,CLIENT}
};
static struct {
int32_t test;
int32_t command;
int64_t offset;
int64_t length;
int32_t result;
int32_t index;
int32_t error;
int32_t padding; /* So mac and irix have the same size struct (bloody alignment) */
} ctl;
void
usage(void)
{
fprintf(stderr, "Usage: %s [options] sharedfile\n\
\n\
options:\n\
-p port TCP/IP port number for client-server communication\n\
-d enable debug tracing\n\
-n # test number to run\n\
-h host run as client and connect to server on remote host\n\
[default run as server]\n", prog);
exit(1);
}
#define INIT_BUFSZ 512
void
initialize(HANDLE fd)
{
char* ibuf;
int j=0;
int nwrite;
int offset = 0;
int togo = FILE_SIZE;
ibuf = (char*)malloc(INIT_BUFSZ);
memset(ibuf, ':', INIT_BUFSZ);
SEEK(fd, 0L);
while (togo) {
offset+=j;
j = togo > INIT_BUFSZ ? INIT_BUFSZ : togo;
if ((nwrite = WRITE(fd, ibuf, j)) != j) {
if (nwrite < 0)
perror("initialize write:");
else
fprintf(stderr, "initialize: write() returns %d, not %d as expected\n",
nwrite, j);
exit(1);
/*NOTREACHED*/
}
togo -= j;
}
}
static int do_truncate(size_t length)
{
int rc;
if (debug)
fprintf(stderr, "truncating to %ld\n", length);
again:
rc = truncate(filename, length);
if (rc && errno == EINTR)
goto again;
saved_errno = errno;
if (rc)
fprintf(stderr, "%s %d : %s\n",
__FILE__, errno, strerror(errno));
return (rc == 0 ? PASS:FAIL);
}
void release_lease(int fd)
{
int rc;
rc = fcntl(fd, F_SETLEASE, F_UNLCK);
if (rc != 0)
fprintf(stderr, "%s Failed to remove lease %d : %d %s\n",
__FILE__, rc, errno, strerror(errno));
}
void lease_break(int sig, siginfo_t *info, void *p)
{
if (debug)
fprintf(stderr, "lease break %d %p fd %d\n",
sig, info, info->si_fd);
got_sigio = 1;
release_lease(f_fd);
}
struct sigaction lease_break_action = {
.sa_sigaction = lease_break,
.sa_flags = SA_SIGINFO,
};
int do_setup_sigio(int fd)
{
int rc;
got_sigio = 0;
rc = sigaction(SIGIO, &lease_break_action, NULL);
if (rc != 0) {
fprintf(stderr, "%s Set '%s' sigaction failed %d\n",
__FILE__, strsignal(SIGIO), rc);
return FAIL;
}
if (debug)
fprintf(stderr, "Set '%s' sigaction on %d\n",
strsignal(SIGIO), fd);
rc = fcntl(fd, F_SETSIG, SIGIO);
if (rc)
fprintf(stderr, "%s Set '%s' sigaction failed %d\n",
__FILE__, strsignal(SIGIO), rc);
return (rc == 0 ? PASS : FAIL);
}
int do_wait_sigio(int32_t time)
{
if (time <= 0)
return FAIL;
while (!got_sigio && time--) {
sleep(1);
}
if (debug > 1 && !got_sigio)
fprintf(stderr, "%s failed to get sigio\n",
__FILE__);
return (got_sigio ? PASS: FAIL);
}
int do_open(int flag)
{
int flags = flag|O_CREAT|O_BINARY;
if(debug > 1)
fprintf(stderr, "do_open %s 0x%x\n", filename, flags);
if ((f_fd = open(filename, flags, 0666)) == INVALID_HANDLE) {
perror("shared file create");
return FAIL;
/*NOTREACHED*/
}
return PASS;
}
static int do_lock(int cmd, int type, int start, int length)
{
int ret;
int filedes = f_fd;
struct flock fl;
if(debug > 1) {
fprintf(stderr, "do_lock: cmd=%d type=%d start=%d, length=%d\n", cmd, type, start, length);
}
if (f_fd < 0)
return f_fd;
fl.l_start = start;
fl.l_len = length;
fl.l_whence = SEEK_SET;
fl.l_pid = getpid();
fl.l_type = type;
errno = 0;
ret = fcntl(filedes, cmd, &fl);
saved_errno = errno;
if(ret)
fprintf(stderr, "do_lock: ret = %d, errno = %d (%s)\n", ret, errno, strerror(errno));
return(ret==0?PASS:FAIL);
}
static int do_lease(int cmd, int arg, int expected)
{
int ret;
if(debug > 1)
fprintf(stderr, "do_lease: cmd=%d arg=%d exp=%X\n",
cmd, arg, expected);
if (f_fd < 0)
return f_fd;
errno = 0;
ret = fcntl(f_fd, cmd, arg);
saved_errno = errno;
if (expected && (expected == ret))
ret = 0;
if(ret)
fprintf(stderr, "%s do_lease: ret = %d, errno = %d (%s)\n",
__FILE__, ret, errno, strerror(errno));
return(ret==0?PASS:FAIL);
}
int do_close(void)
{
if(debug > 1) {
fprintf(stderr, "do_close\n");
}
errno =0;
CLOSE(f_fd);
f_fd = INVALID_HANDLE;
saved_errno = errno;
if (errno) {
fprintf(stderr, "%s errno = %d (%s)\n",
__FILE__, errno, strerror(errno));
return FAIL;
}
return PASS;
}
static void init_ctl(int64_t tests[][6], int32_t index)
{
ctl.test= (int32_t)tests[index][TEST_NUM];
ctl.command = (int32_t)tests[index][COMMAND];
ctl.offset = tests[index][OFFSET];
ctl.length = tests[index][LENGTH];
ctl.index = index;
ctl.result = (int32_t)tests[index][RESULT];
ctl.error = 0;
}
void
send_ctl(void)
{
int nwrite;
if (debug) {
fprintf(stderr, "send_ctl: test=%d, command=%d offset=%"LL"d, length=%"LL"d, result=%d, error=%d\n",
ctl.test, ctl.command, (long long)ctl.offset, (long long)ctl.length,ctl.result, ctl.error);
}
ctl.test= bswap_uint32(ctl.test);
ctl.command = bswap_uint32(ctl.command);
ctl.offset = bswap_uint64(ctl.offset);
ctl.length = bswap_uint64(ctl.length);
ctl.result = bswap_uint32(ctl.result);
ctl.index= bswap_uint32(ctl.index);
ctl.error = bswap_uint32(ctl.error);
nwrite = SOCKET_WRITE(c_fd, (char*)&ctl, sizeof(ctl));
ctl.test= bswap_uint32(ctl.test);
ctl.command = bswap_uint32(ctl.command);
ctl.offset = bswap_uint64(ctl.offset);
ctl.length = bswap_uint64(ctl.length);
ctl.result = bswap_uint32(ctl.result);
ctl.index= bswap_uint32(ctl.index);
ctl.error= bswap_uint32(ctl.error);
if (nwrite != sizeof(ctl)) {
if (nwrite < 0)
perror("send_ctl: write");
else
fprintf(stderr, "send_ctl[%d]: write() returns %d, not %zu as expected\n",
ctl.test, nwrite, sizeof(ctl));
exit(1);
/*NOTREACHED*/
}
}
void recv_ctl(void)
{
int nread;
again:
if ((nread = SOCKET_READ(c_fd, (char*)&ctl, sizeof(ctl))) != sizeof(ctl)) {
if (nread < 0) {
if (errno == EINTR)
goto again;
perror("recv_ctl: read");
} else {
fprintf(stderr, "recv_ctl[%d]: read() returns %d, not %zu as expected\n",
ctl.test, nread, sizeof(ctl));
fprintf(stderr, "socket might has been closed by other locktest\n");
}
exit(1);
/*NOTREACHED*/
}
ctl.test= bswap_uint32(ctl.test);
ctl.command = bswap_uint32(ctl.command);
ctl.offset = bswap_uint64(ctl.offset);
ctl.length = bswap_uint64(ctl.length);
ctl.result = bswap_uint32(ctl.result);
ctl.index= bswap_uint32(ctl.index);
ctl.error= bswap_uint32(ctl.error);
if (debug) {
fprintf(stderr, "recv_ctl: test=%d, command=%d offset=%"LL"d, length=%"LL"d, result=%d, error=%d\n",
ctl.test, ctl.command, (long long)ctl.offset, (long long)ctl.length, ctl.result, ctl.error);
}
}
void
cleanup(void)
{
if (f_fd>=0)
CLOSE(f_fd);
if (c_fd>=0)
SOCKET_CLOSE(c_fd);
if (s_fd>=0)
SOCKET_CLOSE(s_fd);
PLATFORM_CLEANUP();
}
int
run(int64_t tests[][6], char *descriptions[]);
int
main(int argc, char *argv[])
{
int i, sts;
int c;
struct sockaddr_in myAddr;
struct linger noLinger = {1, 0};
char *host = NULL;
char *endnum;
int errflag = 0;
char *p;
extern char *optarg;
extern int optind;
int fail_count = 0;
int run_leases = 0;
int test_setlease = 0;
atexit(cleanup);
PLATFORM_INIT();
/* trim command name of leading directory components */
prog = argv[0];
for (p = prog; *p; p++) {
if (*p == '/')
prog = p+1;
}
while ((c = getopt(argc, argv, "dLn:h:p:t?")) != EOF) {
switch (c) {
case 'd': /* debug flag */
debug++;
break;
case 'L': /* Lease testing */
run_leases = 1;
break;
case 'h': /* (server) hostname */
server = 0;
host = optarg;
break;
case 'n':
testnumber = atoi(optarg);
break;
case 'p': /* TCP/IP port */
port = (int)strtol(optarg, &endnum, 10);
if (*endnum != '\0') {
fprintf(stderr, "%s: -p argument must be a numeric\n",
prog);
exit(1);
/*NOTREACHED*/
}
break;
case 't':
test_setlease = 1;
break;
case '?':
default:
errflag++;
break;
}
}
if (errflag || optind != argc-1) {
usage();
/*NOTREACHED*/
}
filename=argv[optind];
if (debug)
fprintf(stderr, "Working on file : %s\n", filename);
if (do_open(O_RDWR) == FAIL)
exit(1);
if (test_setlease == 1) {
fcntl(f_fd, F_SETLEASE, F_UNLCK);
saved_errno = errno;
close(f_fd);
exit(saved_errno);
}
setbuf(stderr, NULL);
if (server) {
int one = 1;
s_fd = socket(AF_INET, SOCK_STREAM, 0);
if (s_fd == INVALID_SOCKET) {
perror("socket");
exit(1);
/*NOTREACHED*/
}
if (setsockopt(s_fd, IPPROTO_TCP, TCP_NODELAY, (char*)&one, sizeof(one)) < 0) {
perror("setsockopt(nodelay)");
exit(1);
/*NOTREACHED*/
}
if (setsockopt(s_fd, SOL_SOCKET, SO_REUSEADDR, (char*)&one, sizeof(one))<0) {
perror("setsockopt(reuseaddr)");
exit(1);
/*NOTREACHED*/
}
#ifdef SO_REUSEPORT
if (setsockopt(s_fd, SOL_SOCKET, SO_REUSEPORT, (char*)&one, sizeof(one))<0) {
perror("setsockopt(reuseport)");
exit(1);
/*NOTREACHED*/
}
#endif
memset(&myAddr, 0, sizeof(myAddr));
myAddr.sin_family = AF_INET;
myAddr.sin_addr.s_addr = htonl(INADDR_ANY);
myAddr.sin_port = htons((short)port);
sts = bind(s_fd, (struct sockaddr*)&myAddr, sizeof(myAddr));
if (sts < 0) {
perror("bind");
exit(1);
/*NOTREACHED*/
}
sts = listen(s_fd, 5); /* Max. of 5 pending connection requests */
if (sts == -1) {
perror("listen");
exit(1);
/*NOTREACHED*/
}
if (port == 0) {
socklen_t addr_len = sizeof(myAddr);
if (getsockname(s_fd, &myAddr, &addr_len)) {
perror("getsockname");
exit(1);
}
port = ntohs(myAddr.sin_port);
}
printf("server port: %d\n", port);
fflush(stdout);
c_fd = accept(s_fd, NULL, NULL);
if (c_fd == INVALID_SOCKET) {
perror("accept");
exit(1);
/*NOTREACHED*/
}
if (debug) fprintf(stderr, "Client accepted\n");
SRAND(12345L);
}
else {
struct hostent *servInfo;
if ((servInfo = gethostbyname(host)) == NULL) {
fprintf(stderr, "Couldn't get hostbyname for %s", host);
if (h_errno == HOST_NOT_FOUND)
fprintf(stderr, ": host not found");
fprintf(stderr, "\n");
exit(1);
/*NOTREACHED*/
}
c_fd = socket(AF_INET, SOCK_STREAM, 0);
if (c_fd == INVALID_SOCKET) {
perror("socket");
exit(1);
/*NOTREACHED*/
}
/* avoid 200 ms delay */
if (setsockopt(c_fd, IPPROTO_TCP, TCP_NODELAY, (char *)&i, sizeof(i)) < 0) {
perror("setsockopt(nodelay)");
exit(1);
/*NOTREACHED*/
}
/* Don't linger on close */
if (setsockopt(c_fd, SOL_SOCKET, SO_LINGER, (char *)&noLinger, sizeof(noLinger)) < 0) {
perror("setsockopt(nolinger)");
exit(1);
/*NOTREACHED*/
}
memset(&myAddr, 0, sizeof(myAddr)); /* Arrgh! &myAddr, not myAddr */
myAddr.sin_family = AF_INET;
memcpy(&myAddr.sin_addr, servInfo->h_addr, servInfo->h_length);
myAddr.sin_port = htons((short)port);
if (connect(c_fd, (struct sockaddr*)&myAddr, sizeof(myAddr)) < 0) {
perror("unable to connect");
fprintf(stderr, "Server might still initializing the shared file\n ");
exit(1);
/*NOTREACHED*/
}
if (debug) fprintf(stderr, "Connected to server\n");
SRAND(6789L);
}
if (server)
/* only server need do shared file */
initialize(f_fd);
/*
* TCP/IP connection to be established, safe to proceed.
*
* real work is in here ...
*/
if (run_leases)
fail_count = run(lease_tests, lease_descriptions);
else
fail_count = run(lock_tests, lock_descriptions);
exit(fail_count);
/*NOTREACHED*/
}
int run(int64_t tests[][6], char *descriptions[])
{
int index = 0;
int end = 0;
int result = 0;
int last_test = 0;
int test_count = -1;
int fail_flag = 0;
int fail_count = 0;
while(!end) {
if (server) {
if(testnumber > 0) {
last_test = testnumber - 1;
while(tests[index][TEST_NUM] != testnumber && tests[index][TEST_NUM] != 0) {
index++;
}
}
/* If we have a server command, deal with it */
if(tests[index][WHO] == SERVER) {
if(debug)
fprintf(stderr, "Got a server command (%d)\n", index);
if(tests[index][TEST_NUM] == 0) {
index++;
continue;
}
memset(&ctl, 0, sizeof(ctl));
ctl.test = tests[index][TEST_NUM];
if(tests[index][TEST_NUM] != 0) {
switch(tests[index][COMMAND]) {
case CMD_WRLOCK:
result = do_lock(F_SETLK, F_WRLCK, tests[index][OFFSET], tests[index][LENGTH]);
break;
case CMD_RDLOCK:
result = do_lock(F_SETLK, F_RDLCK, tests[index][OFFSET], tests[index][LENGTH]);
break;
case CMD_UNLOCK:
result = do_lock(F_SETLK, F_UNLCK, tests[index][OFFSET], tests[index][LENGTH]);
break;
case CMD_CLOSE:
result = do_close();
break;
case CMD_OPEN:
result = do_open(tests[index][FLAGS]);
break;
case CMD_WRTEST:
result = do_lock(F_GETLK, F_WRLCK, tests[index][OFFSET], tests[index][LENGTH]);
break;
case CMD_RDTEST:
result = do_lock(F_GETLK, F_RDLCK, tests[index][OFFSET], tests[index][LENGTH]);
break;
case CMD_SETLEASE:
result = do_lease(F_SETLEASE, tests[index][ARG], 0);
break;
case CMD_GETLEASE:
result = do_lease(F_GETLEASE, tests[index][ARG], tests[index][ARG]);
break;
case CMD_SIGIO:
result = do_setup_sigio(f_fd);
break;
case CMD_WAIT_SIGIO:
result = do_wait_sigio(tests[index][TIME]);
break;
case CMD_TRUNCATE:
result = do_truncate(tests[index][OFFSET]);
break;
}
if( result != tests[index][RESULT]) {
fail_flag++;
/* We have a failure */
fprintf(stderr, " ***** Server failure *****\n");
fprintf(stderr, " in test %d, while %sing using offset %lld, length %lld - err = %d:%s\n",
ctl.test, get_cmd_str(tests[index][COMMAND]),
(long long)tests[index][OFFSET],
(long long)tests[index][LENGTH],
saved_errno, strerror(saved_errno));
fprintf(stderr, " %d:%s\n",
ctl.test, descriptions[ctl.test - 1]);
}
}
/* else send it off to the client */
} else if (tests[index][WHO] == CLIENT) {
if(tests[index][TEST_NUM] == 0) {
ctl.test = 0;
end=1;
}
/* get the client to do something */
init_ctl(tests, index);
if(debug)
fprintf(stderr, "Sending command to client (%d) - %s - %lld:%lld\n",
index,
get_cmd_str(ctl.command),
(long long)tests[index][OFFSET],
(long long)tests[index][LENGTH]);
/* get the client to do something */
ctl.index = index;
send_ctl();
if(ctl.test != 0) {
/* Get the clients response */
recv_ctl();
/* this is the whether the test passed or failed,
* not what the command returned */
if( ctl.result == FAIL ) {
fail_flag++;
fprintf(stderr, " ***** Client failure *****\n");
fprintf(stderr, " in test %d, while %sing using offset %lld, length %lld - err = %d:%s\n",
ctl.test, get_cmd_str(ctl.command),
(long long)ctl.offset, (long long)ctl.length,
ctl.error, strerror(ctl.error));
fprintf(stderr, " %d:%s\n",
ctl.test, descriptions[ctl.test - 1]);
}
}
}
if(last_test != tests[index][TEST_NUM]) {
test_count++;
if(fail_flag)
fail_count++;
fail_flag = 0;
last_test = tests[index][TEST_NUM];
}
index++;
} else { /* CLIENT */
if(debug)
fprintf(stderr,"client: waiting...\n");
/* wait for the server to do something */
recv_ctl();
/* check for a client command */
index = ctl.index;
if (tests[index][WHO] != CLIENT) {
fprintf(stderr, "not a client command index (%d)\n", index);
exit(1);
}
if(ctl.test == 0) {
end = 1;
break;
}
switch(ctl.command) {
case CMD_WRLOCK:
result = do_lock(F_SETLK, F_WRLCK, ctl.offset, ctl.length);
break;
case CMD_RDLOCK:
result = do_lock(F_SETLK, F_RDLCK, ctl.offset, ctl.length);
break;
case CMD_UNLOCK:
result = do_lock(F_SETLK, F_UNLCK, ctl.offset, ctl.length);
break;
case CMD_CLOSE:
result = do_close();
break;
case CMD_OPEN:
result = do_open(tests[index][FLAGS]);
break;
case CMD_WRTEST:
result = do_lock(F_GETLK, F_WRLCK, ctl.offset, ctl.length);
break;
case CMD_RDTEST:
result = do_lock(F_GETLK, F_RDLCK, ctl.offset, ctl.length);
break;
/* NOTE offset carries the argument values */
case CMD_SETLEASE:
result = do_lease(F_SETLEASE, ctl.offset, 0);
break;
case CMD_GETLEASE:
result = do_lease(F_GETLEASE, ctl.offset, ctl.offset);
break;
case CMD_SIGIO:
result = do_setup_sigio(f_fd);
break;
case CMD_WAIT_SIGIO:
result = do_wait_sigio(ctl.offset);
break;
case CMD_TRUNCATE:
result = do_truncate(ctl.offset);
break;
}
if( result != ctl.result ) {
fprintf(stderr,"Failure in %d:%s\n",
ctl.test, descriptions[ctl.test - 1]);
fprintf(stderr," Got %d, wanted %d\n",
result, ctl.result);
ctl.result = FAIL;
ctl.error = saved_errno;
fail_count++;
} else {
ctl.result = PASS;
ctl.error = 0;
}
if(debug)
fprintf(stderr,"client: sending result to server (%d)\n", ctl.index);
/* Send result to the server */
send_ctl();
if(last_test != tests[index][TEST_NUM]) {
test_count++;
last_test = tests[index][TEST_NUM];
}
}
}
fprintf(stderr, "%d tests run, %d failed\n", test_count, fail_count);
return fail_count;
}